data("iris")
## a stump defined by a binary split in Sepal.Length
stump <- partynode(id = 1L,
split = partysplit(which(names(iris) == "Sepal.Length"),
breaks = 5),
kids = lapply(2:3, partynode))
party(stump, iris,
fitted = data.frame("(fitted)" = fitted_node(stump, data = iris),
check.names = FALSE), names = c("root", "left", "right"))Run the code above in your browser using DataLab