X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/e0988851b26668ec69131e22a0815ce6f85b94c4..80624375941bebfd3629f3972555e5a63ba66ec1:/R/WP_unknown.R

diff --git a/R/WP_unknown.R b/R/WP_unknown.R
index 542f0f7..f339836 100644
--- a/R/WP_unknown.R
+++ b/R/WP_unknown.R
@@ -1,6 +1,3 @@
-source("computeLL.R")
-source("WP_known.R")
-
 #' WP method background function WP_unknown
 #'
 #' This is a background/internal function called by \code{WP}. It computes the maximum likelihood estimator
@@ -23,7 +20,9 @@ source("WP_known.R")
 #'         \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.
 #'
-#' @export
+#' @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)
 	scale <- seq(0, scale.max, length.out=B+1)