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

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

CheckInterpolation <- function(propRuns, intLength) {

    theOut <- RunNSOptimisation(propRuns = 0.1, intLength = intLength)

    simLength <- dim(GetParaMatrixRun(cParamOut = CalibParamOut, runNumber = 1, length = intLength))[1]

    optRuns <- WhichAchieved73(simData = theOut, simLength = simLength, target = custom$target)

    frontierList <- GetFrontiers(simData = theOut, optRuns = optRuns, simLength = simLength)

    output <- RunInterpolation(simData = theOut, optRuns = optRuns, simLength = simLength, frontierList = frontierList, target = custom$target)

    results <- c(
        Cost = mean(output[,"iCost"]),
        Test = mean(output[,"iTest"]),
        Link = mean(output[,"iLink"]),
        PreR = mean(output[,"iPreR"]),
        Init = mean(output[,"iInit"]),
        Adhr = mean(output[,"iAdhr"]),
        Retn = mean(output[,"iRetn"])
    )
    results
}