# \donttest{
library(grmtree)
library(hlt)
data("asti", package = "hlt")
asti$resp <- data.matrix(asti[, 1:4])
## Fit the GRM Forest
forest <- grmforest(resp ~ gender + group, data = asti,
control = grmforest.control(n_tree = 5))
importance <- varimp(forest)
## Print and plot the variable importance scores
print(importance)
plot(importance)
# }
Run the code above in your browser using DataLab