summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--NAMESPACE3
-rw-r--r--R/WP_known.R2
-rw-r--r--R/WP_unknown.R2
-rw-r--r--R/computeLL.R2
-rw-r--r--man/WP_known.Rd1
-rw-r--r--man/WP_unknown.Rd1
-rw-r--r--man/computeLL.Rd1
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}