# NOT RUN {
f1 <- make.formulas(nhanes)
f1
f2 <- make.formulas(nhanes, blocks = make.blocks(nhanes, "collect"))
f2
# for editing, it may be easier to work with the character vector
c1 <- as.character(f1)
c1
# fold it back into a formula list
f3 <- name.formulas(lapply(c1, as.formula))
f3
# }
Run the code above in your browser using DataLab