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

---
 NAMESPACE         | 3 ---
 R/WP_known.R      | 2 +-
 R/WP_unknown.R    | 2 +-
 R/computeLL.R     | 2 +-
 man/WP_known.Rd   | 1 +
 man/WP_unknown.Rd | 1 +
 man/computeLL.Rd  | 1 +
 7 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index b39c581..eb1e732 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,7 +3,4 @@
 export(ID)
 export(IDEA)
 export(WP)
-export(WP_known)
-export(WP_unknown)
-export(computeLL)
 export(seqB)
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
diff --git a/man/WP_known.Rd b/man/WP_known.Rd
index dd113ac..aa6ab84 100644
--- a/man/WP_known.Rd
+++ b/man/WP_known.Rd
@@ -18,3 +18,4 @@ The function returns the maximum likelihood estimator of R0.
 This is a background/internal function called by \code{WP}. It computes the maximum
 likelihood estimator of R0 assuming that the serial distribution is known and finite discrete.
 }
+\keyword{internal}
diff --git a/man/WP_unknown.Rd b/man/WP_unknown.Rd
index f625019..02a3280 100644
--- a/man/WP_unknown.Rd
+++ b/man/WP_unknown.Rd
@@ -33,3 +33,4 @@ of R0 assuming that the serial distribution is unknown but comes from a discreti
 The function then implements a simple grid search algorithm to obtain the maximum likelihood estimator
 of R0 as well as the gamma parameters.
 }
+\keyword{internal}
diff --git a/man/computeLL.Rd b/man/computeLL.Rd
index 241d1ad..7e9926a 100644
--- a/man/computeLL.Rd
+++ b/man/computeLL.Rd
@@ -19,3 +19,4 @@ This function returns the log-likelihood at the input variables and parameters.
 \description{
 This is a background/internal function called by \code{WP}.  It computes the log-likelihood.
 }
+\keyword{internal}
-- 
cgit v1.2.3