# NOT RUN {
my.cost<- function(params, results) { # your best fit calculation, being 0 the best metric. }
d<- "c:/usr/models/your-model-directory"
m<- Model(d,dataset="ds::Output")
Load(m)
f<- AddFactor(name="cyclePoint",min=40,max=90)
f<- AddFactor(factors=f, name="conjugationCost",min=1,max=80)
d<- LatinHypercube(factors=f)
p<- GetSimulationParameters(e)
exp.design<- BuildParameterSet(d,p)
v<- RunExperiment(e,r=1,exp.design,my.cost)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab