boxplot(result_ancona$numberopt[,1],result_ancona$numberopt[,2],
        result_ancona$numberopt[,3],result_ancona$numberopt[,4],
        result_ancona$numberopt[,5],result_ancona$numberopt[,6],
        result_ancona$numberopt[,7],result_ancona$numberopt[,8],
        result_ancona$numberopt[,9],result_ancona$numberopt[,10],
        names=as.character(c(3,4,5,6,7,8,9,10,15,20)),
        xlab="number of CV folds")
load("result_scherzer.RData")
boxplot(result_scherzer$numberopt[,1],result_scherzer$numberopt[,2],
        result_scherzer$numberopt[,3],result_scherzer$numberopt[,4],
        result_scherzer$numberopt[,5],result_scherzer$numberopt[,6],
        result_scherzer$numberopt[,7],result_scherzer$numberopt[,8],
        result_scherzer$numberopt[,9],result_scherzer$numberopt[,10],
        names=as.character(c(3,4,5,6,7,8,9,10,15,20)),
        xlab="number of CV folds")
load("result_wang.RData")
boxplot(result_wang$numberopt[,1],result_wang$numberopt[,2],
        result_wang$numberopt[,3],result_wang$numberopt[,4],
        result_wang$numberopt[,5],result_wang$numberopt[,6],
        result_wang$numberopt[,7],result_wang$numberopt[,8],
        result_wang$numberopt[,9],result_wang$numberopt[,10],
        names=as.character(c(3,4,5,6,7,8,9,10,15,20)),
        xlab="number of CV folds")
load("result_singh.RData")
boxplot(result_singh$numberopt[,1],result_singh$numberopt[,2],
        result_singh$numberopt[,3],result_singh$numberopt[,4],
        result_singh$numberopt[,5],result_singh$numberopt[,6],
        result_singh$numberopt[,7],result_singh$numberopt[,8],
        result_singh$numberopt[,9],result_singh$numberopt[,10],
        names=as.character(c(3,4,5,6,7,8,9,10,15,20)),
        xlab="number of CV folds")
load("result_tang.RData")
boxplot(result_tang$numberopt[,1],result_tang$numberopt[,2],
        result_tang$numberopt[,3],result_tang$numberopt[,4],
        result_tang$numberopt[,5],result_tang$numberopt[,6],
        result_tang$numberopt[,7],result_tang$numberopt[,8],
        result_tang$numberopt[,9],result_tang$numberopt[,10],
        names=as.character(c(3,4,5,6,7,8,9,10,15,20)),
        xlab="number of CV folds")
result_tang$lambdaopt
unique(as.numeric(result_tang$lambdaopt))
result_tang$lambdacand
result_tang$numberopt
result_tang$numbercand
result_tang$whichselected[1:5,1:5]
result_tang$whichselected
result_tang$whichselected[1,1:5,1:5]
result_tang$whichselected[1,1:10,1:5]
result_ancona$whichselected[1,1:10,1:5]
result_ancona$whichselected[1,,1:5]
result_singh$whichselected[1,,1:5]
rm(result_ancona)
rm(result_tang)
rm(result_singh)
rm(result_wang)
rm(result_scherzer)
