Presentation

1. #Linear continous regression
2. dt<-brabant[samp,]
3. attach(dt)
4. formula<-ca97 ~ r6 + rr6 + f6m + m6m + mm6m + caa96 + cda96
5. rfm.linreg<-lm(formula)
6. dt<-brabant[-samp,]
7. attach(dt)
8. predictv<-predict(rfm.linreg, newdata=dt)
9. names(predictv)<-1:length(predictv)
10. gc<-gainchart_cont(predictv,ca97)
11. par(mfrow=c(2,2))
12. plot_gaincharts_cont(gc)