R script for randomForest