R/conduct.R

In modest: Model-Based Dose-Escalation Trials

conduct <- function(){
  appDir <- system.file("Conduct", package="modest")
  if(appDir==""){
    stop("Could not find example directory. Try re-installing `modest`.", call.=FALSE)
  }
  shiny::runApp(appDir, launch.browser=TRUE, display.mode="normal")
}