if (FALSE) {
data(SNPdata)
set.seed(123)
result_optpred = opt_prediction(y = SNPdata[,1], X=SNPdata[,-1]) # optimise random forest
plot_stability(result_optpred, measure = "prediction", add_recommendation = TRUE, add=FALSE)
plot_stability(result_optpred, measure = "selection", add_recommendation = FALSE, add=TRUE)
}
Run the code above in your browser using DataLab