manageWeakLinks <- function(data, paramList, i, newModel, modelList, h,
numGen, usedBC){
metaY <- paramList$MY
bestFit <- paramList$BF
fit <- paramList$Fi
y <- data
if (usedBC == 1){
lambda <- BoxCox.lambda(y, method = "guerrero")
yBC <- BoxCox(y, lambda)
accFit <- estModel(modelList, newModel, yBC, h)
} else {
accFit <- estModel(modelList, newModel, y,h)
lambda <- 0
}
returnList <- decisionRule(accFit, bestFit, fit, metaY, i,
newModel, numGen, lambda, usedBC)
return(returnList)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.