Create shiny UI

[Rnaught] / R / WP.R

diff --git a/R/WP.R b/R/WP.R
index 7597c4993d48254cfa0b2065ff85199761dbff95..c8178b7b168c462175bb5e4a320d78a98858c569 100644 (file)
--- 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)) {