if (FALSE) {
for(i in 1:365)
{
params <- list()
params[[1]] <- list(vBaseLUE=3.0 + i/2000)
params[[2]] <- list(vBaseLUE=3.0 - i/2000)
setAllSimulationValues(simplace,params)
stepAllSimulations(simplace)
}
}
Run the code above in your browser using DataLab