diff options
author | Naeem Model <me@nmode.ca> | 2023-06-22 05:11:43 +0000 |
---|---|---|
committer | Naeem Model <me@nmode.ca> | 2023-06-22 05:11:43 +0000 |
commit | c6f74becc7ecc0e908bf920b1abb28131b5edd3c (patch) | |
tree | 45b9a67f8292a6e34d83b97a5497a852da5c2739 /R | |
parent | ee7fdf4e1460f01ecac50d69798904c4e37f5b93 (diff) |
Include required functions from 'stats' package
Diffstat (limited to 'R')
-rw-r--r-- | R/WP.R | 2 | ||||
-rw-r--r-- | R/WP_unknown.R | 2 |
2 files changed, 4 insertions, 0 deletions
@@ -73,6 +73,8 @@ #' res4 <- WP(NT=NT[1:5], mu=5/7) # serial distribution has mean of five days #' res4$Rhat #' +#' @importFrom stats pexp qexp +#' #' @export WP <- function(NT, mu=NA, search=list(B=100, shape.max=10, scale.max=10), tol=0.999) { if (is.na(mu)) { diff --git a/R/WP_unknown.R b/R/WP_unknown.R index 832a3ba..f339836 100644 --- a/R/WP_unknown.R +++ b/R/WP_unknown.R @@ -20,6 +20,8 @@ #' \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. #' +#' @importFrom stats pgamma qgamma +#' #' @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) |