# NOT RUN {
set.seed(3252)
d <- data.frame(a = rnorm(1000), b = rnorm(1000))
optree <- local_td(d) %.>%
quantile_node(.)
d %.>% optree
p2 <- local_td(d) %.>%
rsummary_node(.)
d %.>% p2
summary(d)
# }
Run the code above in your browser using DataCamp Workspace