X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/87cda5b1e72f033f9d02f78d9cc3b7216d2abe9d..80624375941bebfd3629f3972555e5a63ba66ec1:/R/WP_unknown.R?ds=sidebyside diff --git a/R/WP_unknown.R b/R/WP_unknown.R index ee950b1..f339836 100644 --- a/R/WP_unknown.R +++ b/R/WP_unknown.R @@ -20,7 +20,9 @@ #' \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)