gistfile1.txt

stopCluster(cl)
registerDoSEQ()
cl <- makeCluster(8)
registerDoParallel(cl)
pm1 <- train(rochefant~. -customer, data = training, 
             preProcess = c("center", "scale"),
             method = "glmnet", 
             trControl = tr, 
             na.action = na.omit)
arrange(pm1$results, RMSE) %>% head
summary(pm1)
plot(pm1)
plot(varImp(pm1))
pm1$bestTune
testing_comp<-testing%>%na.omit()
testing_comp$pred<-predict(pm1, testing)
ggplot(testing_comp, aes(rochefant,pred, 
                      colour=as.factor(slaughtermonth))) +
  geom_point(alpha=0.3, size=1) +
  geom_smooth(method=lm, se=FALSE, linetype="dashed", size=1)+
  geom_abline(slope=1, linetype="dashed") + theme_bw() +
  facet_wrap(~slaughteryear)+theme_bw()