# \donttest{
library(grmtree)
library(hlt)
data("asti", package = "hlt")
asti$resp <- data.matrix(asti[, 1:4])
# Fit GRM tree
tree <- grmtree(resp ~ gender + group,
data = asti,
control = grmtree.control(minbucket = 30))
# Print the tree summary
print(tree)
# Alternative syntax (automatically calls print.grmtree)
tree
# }
Run the code above in your browser using DataLab