This group of functions is used to compute deletion diagnostics for a
hierarchical linear model based on the building blocks returned by
case_delete
.
diagnostics(object) # S3 method for case_delete cooks.distance(model, ...) # S3 method for case_delete mdffits(object, ...) # S3 method for case_delete covtrace(object, ...) # S3 method for case_delete covratio(object, ...) # S3 method for case_delete rvc(object, ...)
object | an object containing the output returned by |
---|---|
model | an object containing the output returned by |
... | do not use |
The primary function is diagnostics
which returns either a
list or data frame of influence measures depending on whether
type = "both"
(list
) or if only one aspect of the model
is selected (data.frame
).
If type = "both"
, then a list with Cook's distance, MDFFITS,
COVTRACE, and COVRATIO are returned for the fixed effects and
relative variance change (RVC) is returned for the variance components.
The methods cooks.distance
, mdffits
, covtrace
,
covratio
, and rvc
can be used for direct computation
of the corresponding diagnostic quantities from an object of class
case_delete
.
The results provided by this function will give exact values of the
diagnostics; however, these are computationally very slow. Approximate
versions of cooks.distance
, mdffits
, covtrace
,
covratio
are implemented in HLMdiag, and can be called directly on
the mer
object.
Christensen, R., Pearson, L.M., and Johnson, W. (1992) ``Case-Deletion Diagnostics for Mixed Models, Technometrics, 34, 38 -- 45.
Dillane, D. (2005), Deletion Diagnostics for the Linear Mixed Model,'' Ph.D. thesis, Trinity College Dublin.
Schabenberger, O. (2004) Mixed Model Influence Diagnostics, in Proceedings of the Twenty-Ninth SAS Users Group International Conference, SAS Users Group International.
Adam Loy loyad01@gmail.com
if (FALSE) { data(sleepstudy, package = 'lme4') fm <- lme4::lmer(Reaction ~ Days + (Days | Subject), sleepstudy) # Subject level deletion and diagnostics subject.del <- case_delete(model = fm, level = "Subject", type = "both") subject.diag <- diagnostics(subject.del) }