# \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))
# Default regions plot
plot(tree)
# Profile plot showing item parameters
plot(tree, type = "profile")
# Profile plot showing only thresholds
plot(tree, type = "profile", what = "threshold")
# Histograms of factor scores
plot(tree, type = "histogram")
# }
Run the code above in your browser using DataLab