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)
R2pred(mod)
PRESS(mod)
PRESS.res(mod)
PRESS.pred(mod)Run the code above in your browser using DataLab