aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorNaeem Model <me@nmode.ca>2023-06-22 04:25:46 +0000
committerNaeem Model <me@nmode.ca>2023-06-22 04:25:46 +0000
commitee7fdf4e1460f01ecac50d69798904c4e37f5b93 (patch)
treeb0cb271fd8d6e258847d47f79f976beb2fa60bce /R
parent87cda5b1e72f033f9d02f78d9cc3b7216d2abe9d (diff)
Prevent internal functions from being exported
Diffstat (limited to 'R')
-rw-r--r--R/WP_known.R2
-rw-r--r--R/WP_unknown.R2
-rw-r--r--R/computeLL.R2
3 files changed, 3 insertions, 3 deletions
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