# 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)
# }
Run the code above in your browser using DataLab