tmpdir<-tempdir()
setwd(tmpdir)
#load data
data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
#pre-process model
indicesToy<-indexFinder(CNOlistToy,ToyModel,verbose=TRUE)
ToyNCNOindices<-findNONC(ToyModel,indicesToy,verbose=TRUE)
ToyNCNOcut<-cutNONC(ToyModel,ToyNCNOindices)
indicesToyNCNOcut<-indexFinder(CNOlistToy,ToyNCNOcut)
ToyNCNOcutComp<-compressModel(ToyNCNOcut,indicesToyNCNOcut)
indicesToyNCNOcutComp<-indexFinder(CNOlistToy,ToyNCNOcutComp)
ToyNCNOcutCompExp<-expandGates(ToyNCNOcutComp)
#optimise
ToyFields4Sim<-prep4sim(ToyNCNOcutCompExp)
initBstring<-rep(1,length(ToyNCNOcutCompExp$reacID))
ToyT1opt<-gaBinaryT1(
CNOlist=CNOlistToy,
model=ToyNCNOcutCompExp,
initBstring=initBstring,
maxGens=2,
popSize=5,
verbose=TRUE)
#write network
writeNetwork(
modelOriginal=ToyModel,
modelComprExpanded=ToyNCNOcutCompExp,
optimResT1=ToyT1opt,
optimResT2=NA,
CNOlist=CNOlistToy)
Run the code above in your browser using DataLab