Prevent internal functions from being exported

diff --git a/NAMESPACE b/NAMESPACE
index b39c58139c8e6a88e6cca95bf256f3ac78c5fdd9..eb1e732f1d7994ad2fa1b2e70c3a1873b8c6e18a 100644 (file)
--- 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 2c54bce3d48cb2ececf6fb2cbec45de8dd3a5e96..4c43ed2dc1eb76ec3b72031ff22a77c0587d0415 100644 (file)
--- 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 ee950b19859e20f9e68ef74f514a420f29197e3e..832a3baa77d79577f302ff1b6fdac0ebe9307ddb 100644 (file)
--- 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 904777774d89095b663085e318fe108d5bc5314c..01c0d57b4ca8a1831627806fd5a4b56e85f804b4 100644 (file)
--- 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 dd113acb0d5f8c186cdf91f4a08c2f1ea612af5c..aa6ab84233504bc36a815f63210a33aaf8287ea4 100644 (file)
--- 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 f6250195a18cee6a77a8bf56717581a78d944600..02a328040a95669eb312526991fcf7505153e35b 100644 (file)
--- 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 241d1add145171ba095bdb5017df4a142b525af3..7e9926abce6ebff5a2ba3340ed36122d137abefc 100644 (file)
--- 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}