# This will compute the output of a random model obtained by randomly selecting
# which gates of the initial models are included.
data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
indicesToy<-indexFinder(CNOlistToy,ToyModel,verbose=FALSE)
ToyFields4Sim<-prep4sim(ToyModel)
simRes<-simulateT1(
CNOlist=CNOlistToy,
model=ToyModel,
bStringT1=round(runif(length(ToyModel$reacID))),
simList=ToyFields4Sim,
indexList=indicesToy)
Run the code above in your browser using DataLab