1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
if (!isGeneric("lmList")) {
setGeneric("lmList",
function(formula, data, family, subset, weights,
na.action, offset, pool, ...)
standardGeneric("lmList"))
}
if (!isGeneric("pooledSD")) {
setGeneric("pooledSD", function(object) standardGeneric("pooledSD"))
}
if (!isGeneric("gsummary")) {
setGeneric("gsummary",
function (object, FUN, form, level, groups,
omitGroupingFactor = FALSE,
invariantsOnly = FALSE, ...)
standardGeneric("gsummary"))
}
## ----------------------- lmer-related Generics ---------------------------
if (!isGeneric("isNested"))
setGeneric("isNested", function(x, ...) standardGeneric("isNested"))
if (!isGeneric("LMEoptimize<-")) {
setGeneric("LMEoptimize<-", function(x, ..., value)
standardGeneric("LMEoptimize<-"))
}
if (!isGeneric("fixef")) {
setGeneric("fixef", function(object, ...) standardGeneric("fixef"))
}
if (!isGeneric("denomDF")) {
setGeneric("denomDF", function(x, ...) standardGeneric("denomDF"))
}
fixed.effects <- function(object, ...) {
## fixed.effects was an alternative name for fixef
.Deprecated("fixef")
mCall = match.call()
mCall[[1]] = as.name("fixef")
eval(mCall, parent.frame())
}
if (!isGeneric("ranef")) {
setGeneric("ranef", function(object, ...)
standardGeneric("ranef"))
}
random.effects <- function(object, ...) {
## random.effects was an alternative name for ranef
.Deprecated("ranef")
mCall = match.call()
mCall[[1]] = as.name("ranef")
eval(mCall, parent.frame())
}
if (!isGeneric("BIC")) {
setGeneric("BIC", function(object, ...) standardGeneric("BIC"))
}
setMethod("BIC", "logLik",
function(object, ...)
-2 * (c(object) - attr(object, "df") * log(attr(object, "nobs"))/2)
)
if (!isGeneric("VarCorr")) {
setGeneric("VarCorr", function(x, ...) standardGeneric("VarCorr"))
}
if (!isGeneric("postVar")) { # posterior variances
setGeneric("postVar", function(object, ...)
standardGeneric("postVar"))
}
if (!isGeneric("gradient")) { # not exported
setGeneric("gradient", function(x, ...) standardGeneric("gradient"))
}
if (!isGeneric("getFixDF")) { # not exported
setGeneric("getFixDF", function(object, ...) standardGeneric("getFixDF"))
}
if (!isGeneric("mcmcsamp")) {
setGeneric("mcmcsamp", function(object, n = 1, verbose = FALSE, ...)
standardGeneric("mcmcsamp"))
}
if (!exists("simulate", mode = "function")) {
setGeneric("simulate", function(object, nsim = 1, seed = NULL, ...)
standardGeneric("simulate"))
}
|
