#load data
data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
#pre-process model
model = preprocessing(CNOlistToy, ToyModel)
#optimise
ToyT1opt<-gaBinaryT1(
CNOlist=CNOlistToy,
model=model,
maxGens=20,
popSize = 10,
verbose=FALSE)
#plotting
cutAndPlotResultsT1(
model=model,
CNOlist=CNOlistToy,
bString=ToyT1opt$bString,
plotPDF=FALSE)
Run the code above in your browser using DataLab