R/runExample.GreyZone.R

In HansLandsheer/UncertainInterval: Uncertain Interval Methods for Three-Way Cut-Point Determination in Test Results

#' Run example of the Grey Zone method, simulating a large variety
#' of tests with varying qualities.
#' 
#' @description Documentation is provided in the ShinyApp itself.
#' @seealso \code{\link{runExample.UI}} \code{\link{runExample.TGROC}} 
#' \code{\link{runExample.ROC}}

#' @export
#' @importFrom shiny runApp
runExample.GreyZone <- function() {
  appDir <- system.file("shiny-examples", "grey-zone", package = "UncertainInterval")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `UncertainInterval` package.", call. = FALSE)
  }
  
  shiny::runApp(appDir, display.mode = "normal")
}