if (FALSE) {
# a function call with a valid formula
ast <- testParse("someregression(D$height ~ D$diameter + D$length)")
# a function call with an invalid formula including a function call
testParse("someregression(D$height ~ D$diameter + poly(D$length,3,raw=TRUE))")
}
Run the code above in your browser using DataLab