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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.