Description Usage Arguments Author(s) See Also Examples
Print enspls.ad object.
1 2 |
x |
An object of class |
... |
Additional parameters for |
Nan Xiao <https://nanx.me>
See enspls.ad
for model applicability domain
evaluation with ensemble sparse partial least squares regressions.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | data("logd1k")
# remove low variance variables
x <- logd1k$x[, -c(17, 52, 59)]
y <- logd1k$y
# training set
x.tr <- x[1:300, ]
y.tr <- y[1:300]
# two test sets
x.te <- list(
"test.1" = x[301:400, ],
"test.2" = x[401:500, ]
)
y.te <- list(
"test.1" = y[301:400],
"test.2" = y[401:500]
)
set.seed(42)
ad <- enspls.ad(
x.tr, y.tr, x.te, y.te,
maxcomp = 3, alpha = c(0.3, 0.6, 0.9),
space = "variable", method = "mc",
ratio = 0.8, reptimes = 10
)
print(ad)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.