#' \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
+#' @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)