GLMs results
par(mfcol=c(2,1))
plot(GLM0results$aucopt,xlab="number of covariates",ylab="AUC",
type='b',pch=1,ylim=c(0.6,0.90),cex=1.25,main="GLM")
lines(GLM1results$aucopt,type='b',pch=2,cex=1.25)
legend("bottomleft",c("fatty","dense"),lty=1,pch=c(2,1),
box.lty=0,cex=1.25)
plot(GAM0results$aucopt,xlab="number of covariates",ylab="AUC",
type='b',pch=1,ylim=c(0.6,0.90),cex=1.25,main="GAM")
lines(GAM1results$aucopt,type='b',pch=2,cex=1.25)
legend("bottomleft",c("fatty","dense"),lty=1,pch=c(2,1),
box.lty=0,cex=1.25)
##################################################################