# \donttest{
n = 1000
d = 2
set.seed(1)
X = cbind(rnorm(n), rnorm(n))
y = rbinom(n,1,.2)
fit = maximum.context(y, X)
draw(fit)
fit = VLMCX(y, X, alpha.level = 0.0001, max.depth = 3, n.min = 15, trace = TRUE)
draw(fit)
draw(fit, print.coef = FALSE)
# }
Run the code above in your browser using DataLab