RF

library(party)
library(randomForest)

# Create the forest.
output.forest <- randomForest(nativeSpeaker ~ age + shoeSize + score,
           data = readingSkills , importance =T)

# View the forest results.
print(output.forest)

fit=output.forest
print(importance(output.forest))