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")
## Apply method
plotPredMap(obj)
Run the code above in your browser using DataLab