# NOT RUN {
require(SimInf)
data <- preprocessInputData(regionTrain, regionPopulation)
resList <- lapply(data[1], tuneRegionModel, pops=NULL, control=list(funEvals=6,
designControl=list(size=5), model = buildLM))
parsedList <- parseTunedRegionModel(resList)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab