inst/app/server/non-shiny/interpolation-test/cluster-test.R

In jackolney/CascadeDashboard: A Shiny App for Investigating The Current Trajectory of HIV Care

##### Cluster Intervention Interpolation Test #####

message("Starting cluster intervention interpolation test...")

source("server/calibration/master.R",                         local = FALSE)
source("server/calibration/initial.R",                        local = FALSE)
source("server/calibration/model.R",                          local = FALSE)
source("server/calibration/error.R",                          local = FALSE)
source("server/calibration/calibration.R",                    local = FALSE)
source("server/calibration/assumptions.R",                    local = FALSE)
source("server/calibration/calibration-data.R",               local = FALSE)
source("server/calibration/marrakech-data.R",                 local = FALSE)
source("server/calibration/misc-functions.R",                 local = FALSE)
source("server/misc-functions.R",                             local = FALSE)
source("server/calibration/plot-functions.R",                 local = FALSE)
source("server/non-shiny/non-shiny-calibration.R",            local = FALSE)
source("server/country/misc-functions.R",                     local = FALSE)
source("server/model/baseline-model.R",                       local = FALSE)
source("server/model/best-fit-model.R",                       local = FALSE)
source("server/model/beta.R",                                 local = FALSE)
source("server/model/initial.R",                              local = FALSE)
source("server/model/parameters.R",                           local = FALSE)
source("server/model/sim-abs.R",                              local = FALSE)
source("server/model/sim-prop.R",                             local = FALSE)
source("server/non-shiny/non-shiny-optimisation.R",           local = FALSE)
source("server/optimisation/frontier.R",                      local = FALSE)
source("server/optimisation/input-functions.R",               local = FALSE)
source("server/optimisation/output-functions.R",              local = FALSE)
source("server/optimisation/parameters.R",                    local = FALSE)
source("server/optimisation/plot-functions.R",                local = FALSE)
source("server/non-shiny/interpolation-test/test-function.R", local = FALSE)

# load 'cascade' package and ensure it is the latest build.
require(cascade)

KenyaData <- GetMasterDataSet("Kenya")

RunNSCalibration(country = "Kenya", data = KenyaData, maxIterations = 1e4, maxError = 3, limit = 1000)

MasterData <- GetMasterDataSet("Kenya")

intSwitch <- data.frame(
    testing =      TRUE,
    linkage =      TRUE,
    preRetention = TRUE,
    initiation =   TRUE,
    adherence =    TRUE,
    retention =    TRUE
    )

OptInput <- c()
OptInput$intValue_rho   <- parRange["rho", "max"]
OptInput$intValue_q     <- parRange["q", "max"]
OptInput$intValue_kappa <- parRange["kappa", "min"]
OptInput$intValue_gamma <- parRange["gamma", "max"]
OptInput$intValue_sigma <- 0.1
OptInput$intValue_omega <- parRange["rho", "min"]

Two <- CheckInterpolation(propRuns = 0.1, intLength = 2)
Three <- CheckInterpolation(propRuns = 0.1, intLength = 3)
Four <- CheckInterpolation(propRuns = 0.1, intLength = 4)

save.image(file = "currentSession.RData")