# NOT RUN {
set <- Stratified.event.tree(artificial.chds)
set.manual <- Stratified.event.tree(list(Variable("age",list(Category("old"),
Category("medium"), Category("new"))),Variable("state", list(Category("solid"),
Category("liquid"), Category("steam"))), Variable("costumer",
list(Category("good"), Category("average"), Category("very bad"),
Category("bad")))))
# }
Run the code above in your browser using DataLab