# 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