R/num.Terms.formula.R

`num.Terms.formula` <-
function(object, ...)
ifelse(length(attr(terms(object), "factors")) == 0, attr(terms(object), "intercept"),
dim(attr(terms(object), "factors"))[2] + attr(terms(object), "intercept"))

Try the CombMSC package in your browser

Any scripts or data that you put into this service are public.

CombMSC documentation built on May 2, 2019, 2:32 p.m.