# NOT RUN {
feis.mod <- feis(lnw ~ age | exp,
data = mwp, id = "id", robust = TRUE)
new <- data.frame(age = seq(-10, 10, 1))
feis.pred <- predict(feis.mod, newdata = new,
se.fit = TRUE, interval = "confidence")
# }
# NOT RUN {
matplot(new$age, feis.pred$fit, lty = c(1,2,2),
type = "l", ylab = "predicted y")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab