fpath <- system.file("extdata", package="SQUADD")
fileModel <- file.path(fpath,"data_IAA")
nm <- c("ARF(a)", "ARF(i)", "AR_Genes", "Aux/IAA", "BES1/BZR1",
"BIN2", "BR", "BRI1-BAK1","BRR_Genes","BRX","BR_Biosynthesis","BZR1",
"DO", "IAA", "IAA_Biosynthesis", "NGA1", "PIN", "SCFTir1",
"StimAux", "StimBR")
t <- 50
## call constructor
obj <- simResService(
folder=fileModel,
time=t,
ncolor=5,
legend=nm,
indexDeno=1,
method="lowess",
conditionList=c("Normal", "brxlof", "BRrescue","brxarfilof",
"brxarfiBRrescue", "brxgof")
)
## call method
plotCC(obj)
Run the code above in your browser using DataLab