Model Ensembling

## Loading required package: lattice

Build two different models.

mod1<-train(wage~.,method="glm",data=training)
mod2<-train(wage~.,method="rf",data=training,trControl=trainControl(method="cv"),number=3)

## Loading required package: randomForest
## randomForest 4.6-12
## Type rfNews() to see new features/changes/bug fixes.

pred1<-predict(mod1,testing);pred2<-predict(mod2,testing)
qplot(pred1,pred2,colour=wage,data=testing)