diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/WP_known.R | 2 | ||||
| -rw-r--r-- | R/WP_unknown.R | 2 | ||||
| -rw-r--r-- | R/computeLL.R | 2 |
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 |