# NOT RUN {
set.seed(99)
a <- rbinom(10, 4, 0.4)
table(a)
x <- runif(10)
df <- data.frame(a=factor(a), x=x)
b <- bartModelMatrix(df)
b
b <- bartModelMatrix(df, numcut=9)
b
b <- bartModelMatrix(df, numcut=9, usequants=TRUE)
b
# }
# NOT RUN {
f <- bartModelMatrix(as.character(a))
# }
Run the code above in your browser using DataLab