#Load the iris dataset
data(iris)
#Set up the predictors object
predictors=iris[,c(1:4)]
colnames(predictors)<-colnames(iris[1:4])
#Execute the main pRF function
p.test<-pRF(response=factor(iris$Species),
predictors=iris[,c(1:4)],n.perms=20,mtry=3,
type="classification",alpha=0.05)
#Put together a dataframe that consists of the
#significance stats and observed importance metrics
df<-cbind(p.test$Res.table,p.test$obs)
Run the code above in your browser using DataLab