X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/e0988851b26668ec69131e22a0815ce6f85b94c4..80624375941bebfd3629f3972555e5a63ba66ec1:/R/WP.R?ds=inline

diff --git a/R/WP.R b/R/WP.R
index 7597c49..c8178b7 100644
--- a/R/WP.R
+++ b/R/WP.R
@@ -1,6 +1,3 @@
-source("WP_known.R")
-source("WP_unknown.R")
-
 #' WP method
 #'
 #' This function implements an R0 estimation due to White and Pagano (Statistics in Medicine, 2008).
@@ -76,6 +73,8 @@ source("WP_unknown.R")
 #' 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)) {