# NOT RUN {
ff <- log(Volume) ~ log(Height) + log(Girth)
str(m <- model.frame(ff, trees))
(model.matrix(ff, m))
class(ff) <- c("bayesglm", "terms", "formula")
(model.matrixBayes(ff, m))
# }
# NOT RUN {
<!-- %class(ff) <- c("bayesglm.h", "terms", "formula") -->
# }
# NOT RUN {
<!-- %(model.matrixBayes(ff, m)) -->
# }
Run the code above in your browser using DataLab