Create shiny UI

[Rnaught] / R / WP_unknown.R

diff --git a/R/WP_unknown.R b/R/WP_unknown.R
index ee950b19859e20f9e68ef74f514a420f29197e3e..f339836705aab45e4c78043c75d580f53e9804e2 100644 (file)
--- 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.
 #'
 #'         \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)
 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)