print.mvr | R Documentation |
Summary and print methods for mvr
and mvrVal
objects.
## S3 method for class 'mvr'
print(x, ...)
## S3 method for class 'mvr'
summary(
object,
what = c("all", "validation", "training"),
digits = 4,
print.gap = 2,
...
)
## S3 method for class 'mvrVal'
print(x, digits = 4, print.gap = 2, ...)
## S3 method for class 'mvrVal'
as.data.frame(x, row.names = NULL, optional = FALSE, shortAlgs = TRUE, ...)
x , object |
an |
... |
Other arguments sent to underlying methods. |
what |
one of |
digits |
integer. Minimum number of significant digits in the output. Default is 4. |
print.gap |
Integer. Gap between coloumns of the printed tables. |
row.names |
NULL or a character vector giving the row names for the data frame. Missing values are not allowed. |
optional |
Not used, only included to match signature of |
shortAlgs |
Logical. Shorten algorithm names (default = TRUE). |
If what
is "training"
, the explained variances are given; if
it is "validation"
, the cross-validated RMSEPs (if available) are
given; if it is "all"
, both are given.
print.mvr
and print.mvrVal
return the object
invisibly.
Ron Wehrens and Bjørn-Helge Mevik
mvr
, pcr
, plsr
,
RMSEP
, MSEP
data(yarn)
nir.mvr <- mvr(density ~ NIR, ncomp = 8, validation = "LOO", data = yarn)
nir.mvr
summary(nir.mvr)
RMSEP(nir.mvr)
# Extract MVR validation statistics as data.frame:
as.data.frame(RMSEP(nir.mvr, estimate = "CV"))
as.data.frame(R2(nir.mvr))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.