data(efc)
fit <- lm(barthtot ~ c160age + c12hour, data = efc)
rmse(fit)
library(lme4)
fit <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
rmse(fit)
# normalized RMSE
library(nlme)
fit <- lme(distance ~ age, data = Orthodont)
rmse(fit, normalized = TRUE)
Run the code above in your browser using DataLab