model_buidling+exercises.R