data <- data.frame(y = rnorm(8),
x = factor(c('a','a','a','a','b','b','b','b')),
z = factor(c('a','a','b','b','a','a','b','b')))
mod <- lm(y ~ x + z, data=data)
RMSEP(mod)
rmsep(mod) # Alias to distinguish it from pls::RMSEP
R2pred(mod)
PRESS(mod)
PRESS.res(mod)
PRESS.pred(mod)
Run the code above in your browser using DataLab