This function checks whether an intercept is present in a formula of
some form. It works for a
pim.formula object or
a character vector representing a formula.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
In case of a
terms.object, this function only checks whether the
intercept attribute is larger than 0. In all other cases, the
function checks whether it can find a
+ 1 somewhere in the formula,
indicating that an intercept has to be fit in a
a single logical value
This function will return
FALSE for a standard formula
that is used in the context of a marginal model. Keep in mind that when
model = 'marginal' in a call to
pim, the model
will contain an intercept regardless of the outcome of
This function is meant to be used in the context of a
call. Although the function should work for standard formulas as well,
correct results are not guaranteed when used outside a pim context.
1 2 3 4 5 6 7 8 9 10 11
data("FEVData") # Create the "model frame" FEVenv <- new.pim.env(FEVData, compare="unique") # create the formula and bind it to the pim.environment. FEVform <- new.pim.formula( Age ~ I(L(Height) - R(Height)) , FEVenv ) has.intercept(FEVform) FEVform2 <- new.pim.formula(Age ~ Height + 1, FEVData) has.intercept(FEVform2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.