# NOT RUN {
my.cost<- function(params, results) {
criteria<- c()
Rate<- AoE.RMSD(results$X.Simulated,results$X.Experimental)
G<- AoE.RMSD(results$G.T.,52)
total<- Rate + G
criteria<- cbind(total,Rate,G)
return(criteria)
}
Easy.Setup("/models/BactoSim")
v<- Easy.Calibration("/models/BactoSim","ds::Output",360,
f,exp.n = 1000, exp.r=1, smax=4,
design="mcs", my.cost)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab