Create fun_model_selection.R