# NOT RUN {
{
# get rpms model of mean retirement contribution by several factors
r1 <- rpms(FINDRETX~EDUC_REF+AGE_REF+BLS_URBN+REGION, data = CE)
# first 10 predicted means
predict(r1, CE[1:10, ])
}
# }
Run the code above in your browser using DataLab