procedure <- modeling_procedure("pamr")
model <- fit(procedure, x=iris[-5], y=iris$Species)
get_importance(model)
cv <- resample("crossvalidation", iris$Species, nreplicate=2, nfold=3)
result <- evaluate(procedure, iris[-5], iris$Species, resample=cv,
.save=c(importance=TRUE))
get_importance(result)Run the code above in your browser using DataLab