###################################################
### chunk number 1: source package
###################################################
#line 63 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
library(SQUADD)


###################################################
### chunk number 2: instance
###################################################
#line 76 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
# construct instance of SquadSimResServiceImpl
fpath <- system.file("extdata", package="SQUADD")
folder <- file.path(fpath,"data_ERK")
sim <- simResService (folder=folder,
			  time= 20,
			  ncolor=5,
     		 legend= c("EGF", "ERK", "MEK", "RAF"),
  			 indexDeno=1,
			 method="lowess")


###################################################
### chunk number 3: SimMatrix
###################################################
#line 98 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
sim["selectNode"] <-c("ERK", "MEK", "RAF")
plotSimMatrix(sim)


###################################################
### chunk number 4: fittedValues
###################################################
#line 126 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
tab <- getFittedTable(sim)


###################################################
### chunk number 5: PredMap
###################################################
#line 147 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
plotPredMap(sim)


###################################################
### chunk number 6: FigPredMap
###################################################
#line 154 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
#line 147 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw#from line#154#"
plotPredMap(sim)
#line 155 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"


###################################################
### chunk number 7: 
###################################################
#line 168 "vignettes/SQUADD/inst/doc/SQUADD_ERK.Rnw"
sessionInfo()