inst/shinyContraBayes/server.R

#require("shiny")
#require("NNTbiomarker")

appName = "shinyContraBayes"
cat("Launching ", appName, "\n")

shinyServer(function(input, output, session) {
  rValues = reactiveValues()
  PPVderived = reactive({1/input$NNTpos})
  NPVderived = reactive({1 - 1/input$NNTneg})

  source("contraBayesPlot.R", local=T)
})
professorbeautiful/NNTbiomarkerHome documentation built on June 7, 2019, 8:28 a.m.