# NOT RUN {
set.seed(99)
xdf = data.frame(x1=1:15,x2=as.factor(c(rep(1,5),rep(2,5),rep(3,5))),
x3=runif(15),x4=as.factor(c(rep(1,5),rep(2,10))))
print(head(xdf))
xm = rbartModelMatrix(xdf)
print(head(xm))
# }
Run the code above in your browser using DataLab