From b87620843bcae4fc1cb6a9e9caaf52944e93b7b7 Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Fri, 30 Jun 2023 00:04:19 +0000
Subject: Re-gen docs and prevent genning of internal functions

---
 R/WP_internal.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'R/WP_internal.R')

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
-- 
cgit v1.2.3