# this computes the output of the full model,
# which is normally not done on a stand alone basis,
# but if you have a model and would like to visualise
# its output compared to your data, then this is what you should do.
library(CellNOptR)
library(CNORdt)
data(CNOlistPB, package="CNORdt")
data(modelPB, package="CNORdt")
indexOrig <- indexFinder(CNOlistPB, modelPB, verbose=TRUE)
fields4Sim <- prep4sim(modelPB)
boolUpdates=10
simResults <- simulatorDT(
CNOlist=CNOlistPB,
model=modelPB,
simList=fields4Sim,
indices=indexOrig,
boolUpdates=boolUpdates
)
simResults = convert2array(simResults, dim(CNOlistPB$valueSignals[[1]])[1],
length(modelPB$namesSpecies), boolUpdates)
Run the code above in your browser using DataLab