## S3 method for class 'IBHM'
summary(object, ...)
## S3 method for class 'summary.IBHM'
print(x, ...)
Arguments
object
An object of class "IBHM", usually created using TrainIBHM.
x
An object of class "summary.IBHM" created using summary.
...
Further arguments.
Value
An object of class 'summary.IBHM' containing the following fields:
model
Equation stating the obtained model in human readable form.
model.size
Number of components in the model.
TrainSize
Size of the training set used to construct the model.
TrainDim
Number of input attributes in the training set.
mse
Mean squared error.
se.sd
Standard deviation of the squared error.
rmse
Root mean squared error.
cor
Linear correlation between the actual and predicted values on the train data set.
See Also
TrainIBHM
Examples
x.train <-seq(-2,2,length.out=100)
y.train <-tanh(x.train)
m <- TrainIBHM(x.train,y.train)
summary(m)
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(IBHM)
Loading required package: compiler
Loading required package: DEoptim
DEoptim package
Differential Evolution algorithm in R
Authors: D. Ardia, K. Mullen, B. Peterson and J. Ulrich
Loading required package: cmaes
Loading required package: Rcpp
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/IBHM/summary.IBHM.Rd_%03d_medium.png", width=480, height=480)
> ### Name: summary.IBHM
> ### Title: summary.IBHM
> ### Aliases: summary.IBHM print.summary.IBHM summary
> ### Keywords: ~models ~regression ~nonlinear
>
> ### ** Examples
>
> x.train <-seq(-2,2,length.out=100)
> y.train <-tanh(x.train)
>
> m <- TrainIBHM(x.train,y.train)
Note: no visible binding for global variable '.refClassDef'
Note: no visible binding for global variable '.refClassDef'
Note: no visible binding for global variable '.pointer'
Note: no visible binding for global variable '.pointer'
Note: no visible binding for global variable '.pointer'
> summary(m)
Model equation: 2.44e-02 -1.00e+00 tanh ( 1.22e+00 * dot.pr (x,[ 1.68e+00 -8.21e-01 ]) + -2.04e+00 ) -5.25e-05 tanh ( -2.01e+00 * radial (x,[ 2.70e-01 8.55e-01 ]) + 4.84e-01 ) -4.23e+00 tanh ( 2.06e+00 * radial (x,[ 2.09e-06 -8.06e-01 ]) + 5.77e-03 )
Model size: 3
Train set dim: 1 Train set size: 100
MSE: 5.027627e-11 Std. dev:
RMSE: 7.090576e-06
Pearson correlation coefficient: 1
>
>
>
>
>
> dev.off()
null device
1
>