# NOT RUN {
# }
# NOT RUN {
require(SimInf)
data <- preprocessInputData(regionTrain, regionPopulation)
a <- c(0.01, 0.001, 0.001, 0.001)
b <- c(0.1, 0.01, 0.01, 0.01)
lapply(data[1], tuneRegionModel, pops=NULL, lower = a, upper = b,
control=list(funEvals=6,
designControl=list(size=5), model = buildLM))
# }
Run the code above in your browser using DataLab