inst/shinyAE/global.R

In NNTbiomarker: Calculate Design Parameters for Biomarker Validation Studies

#PaikFitFile = system.file(package="NNTbiomarker",  "Paik-fit.R")
print(dir())
PaikFitFile =  "Paik-fit.R"

### NOTE: no "inst" when running from package home.
cat("global.R: PaikFitFile is ", PaikFitFile, "\n")
if( ! identical(ls(pattern="Paik_nnt", pos=1), 1) )
  source(PaikFitFile, local=TRUE)

boxcolors = colorRampPalette(c("lightgrey", "red"))(6)