diff options
author | Naeem Model <me@nmode.ca> | 2023-06-30 00:04:19 +0000 |
---|---|---|
committer | Naeem Model <me@nmode.ca> | 2023-06-30 00:04:19 +0000 |
commit | b87620843bcae4fc1cb6a9e9caaf52944e93b7b7 (patch) | |
tree | bdb5baf4b4a505c4d00a4f9be4420ffcca160938 /R/WP_internal.R | |
parent | 80df3ed7a280f86a3b9b5443309487d428f4fe95 (diff) |
Re-gen docs and prevent genning of internal functions
Diffstat (limited to 'R/WP_internal.R')
-rw-r--r-- | R/WP_internal.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/WP_internal.R b/R/WP_internal.R index 420d0c0..dd10d29 100644 --- a/R/WP_internal.R +++ b/R/WP_internal.R @@ -9,7 +9,7 @@ #' #' @return The function returns the maximum likelihood estimator of R0. #' -#' @keywords internal +#' @noRd WP_known <- function(NT, p) { k <- length(p) TT <- length(NT) - 1 @@ -54,7 +54,7 @@ WP_known <- function(NT, p) { #' #' @importFrom stats pgamma qgamma #' -#' @keywords internal +#' @noRd WP_unknown <- function(NT, B = 100, shape.max = 10, scale.max = 10, tol = 0.999) { shape <- seq(0, shape.max, length.out = B + 1) @@ -91,14 +91,14 @@ WP_unknown <- function(NT, B = 100, shape.max = 10, scale.max = 10, #' This is a background/internal function called by \code{WP}. It computes the #' log-likelihood. #' -#' @param NT Vector of case counts. #' @param p Discretized version of the serial distribution. +#' @param NT Vector of case counts. #' @param R0 Basic reproductive ratio. #' #' @return This function returns the log-likelihood at the input variables and #' parameters. #' -#' @keywords internal +#' @noRd computeLL <- function(p, NT, R0) { k <- length(p) TT <- length(NT) - 1 |