final code

finalize the R code for the random forest model