From ee7fdf4e1460f01ecac50d69798904c4e37f5b93 Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Thu, 22 Jun 2023 04:25:46 +0000
Subject: Prevent internal functions from being exported

---
 R/WP_known.R   | 2 +-
 R/WP_unknown.R | 2 +-
 R/computeLL.R  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'R')

diff --git a/R/WP_known.R b/R/WP_known.R
index 2c54bce..4c43ed2 100644
--- a/R/WP_known.R
+++ b/R/WP_known.R
@@ -8,7 +8,7 @@
 #'
 #' @return The function returns the maximum likelihood estimator of R0.
 #'
-#' @export
+#' @keywords internal
 WP_known <- function(NT, p) {
     k <- length(p)
     TT <- length(NT) - 1
diff --git a/R/WP_unknown.R b/R/WP_unknown.R
index ee950b1..832a3ba 100644
--- a/R/WP_unknown.R
+++ b/R/WP_unknown.R
@@ -20,7 +20,7 @@
 #'         \code{J0} (the location for the maximum likelihood estimator \code{Rhat}). If \code{JJ} and \code{J0}
 #'         are not the same, this means that the maximum likelihood estimator is not unique.
 #'
-#' @export
+#' @keywords internal
 WP_unknown <- function(NT, B=100, shape.max=10, scale.max=10, tol=0.999) {
 	shape <- seq(0, shape.max, length.out=B+1)
 	scale <- seq(0, scale.max, length.out=B+1)
diff --git a/R/computeLL.R b/R/computeLL.R
index 9047777..01c0d57 100644
--- a/R/computeLL.R
+++ b/R/computeLL.R
@@ -8,7 +8,7 @@
 #'
 #' @return This function returns the log-likelihood at the input variables and parameters.
 #'
-#' @export
+#' @keywords internal
 computeLL <- function(p, NT, R0) {
     k <- length(p)
     TT <- length(NT) - 1
-- 
cgit v1.2.3