# NOT RUN {
library(survey)
data(api)
gregTree(y = apisrs$api00,
x_sample = apisrs[c("col.grad", "awards", "snum", "dnum", "cnum", "pcttest", "meals", "sch.wide")],
x_pop = apipop[c("col.grad", "awards", "snum", "dnum", "cnum", "pcttest", "meals", "sch.wide")])
# }
Run the code above in your browser using DataLab