Description Usage Arguments Value Examples
Plot VIP for EEM data
1 |
x |
output variable from |
ncomp |
number of components/ latent variables |
... |
(optional) arguments for |
A figure is returned on the graphic device
1 2 3 4 5 6 7 8 9 10 11 12 13 | require(EEM)
data(gluten)
gluten_uf <- unfold(gluten) # unfold list into matrix
# delete columns with NA values
index <- colSums(is.na(gluten_uf)) == 0
gluten_uf <- gluten_uf[, index]
gluten_ratio <- as.numeric(names(gluten))
require(pls)
model <- plsr(gluten_ratio ~ gluten_uf, ncomp = 3, method = "oscorespls")
plotVIP(model)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.