# \donttest{
library(grmtree)
library(hlt)
data("asti", package = "hlt")
asti$resp <- data.matrix(asti[, 1:4])
# Fit GRM tree with gender and group as partitioning variables
tree <- grmtree(resp ~ gender + group,
data = asti,
control = grmtree.control(minbucket = 30))
# Generate combined dataset
scored_data <- generate_node_scores_dataset(tree)
# Plot scores by node
boxplot(factor_score ~ node, data = scored_data)
# }
Run the code above in your browser using DataLab