data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
#process the model
model = preprocessing(CNOlistToy,ToyModel)
#optimise
ToyT1opt<-gaBinaryT1(
CNOlist=CNOlistToy,
model=model,
maxGens=10,
popSize=10,
verbose=FALSE)
plotFit(optRes=ToyT1opt)
Run the code above in your browser using DataLab