data("CEMSChoice", package = "psychotree")
cems_tree <- bttree(preference ~ french + spanish + italian + study + work + gender + intdegree,
data = CEMSChoice, minsplit = 5, ref = "London")
worth(cems_tree)Run the code above in your browser using DataLab