Build the table of fitted values.

Description

This method creates a table containing the interpolated/fitted value of the simulation curve at the user-defined time point. Each column represents the condition and each line, the component node. It is used as basis for the Correlation Circle and the Prediction Map.

Usage

getFittedTable(object)

Arguments

Details

This method firstly interpolate the SQUAD Simulation curve with a global (linear) or local (lowess) interpolation. A local interpolation is more sensitive to change in the curve when applying perturbation or pulse.

Value

returns a matrix of size length of component x length of conditions.

Author(s)

Martial Sankar

References

(1) Cleveland, W. S. (1979) Robust locally weighted regression and smoothing scatterplots. J. Amer. Statist. Assoc. 74, 829:836. (2) Chambers, J. M. (1992) Linear models. Chapter 4 of Statistical Models in S eds J. M. Chambers and T. J. Hastie, Wadsworth And Brooks/Cole.

See Also

More specific information in getFittedTable-methods. For more informations about the input object see SquadSimResServiceImpl-class.

Examples

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 
tab <- getFittedTable(obj)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(SQUADD)
> png(filename="/home/ddbj/snapshot/RGM3/R_BC/result/SQUADD/getFittedTable.Rd_%03d_medium.png", width=480, height=480)
> ### Name: getFittedTable
> ### Title: Build the table of fitted values.
> ### Aliases: getFittedTable
> ### Keywords: fit interpolate
> 
> ### ** Examples
> 
> 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 
> tab <- getFittedTable(obj)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>