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
|
.onLoad <- function(lib,pkg){
if(requireNamespace("memisc",quietly = TRUE)){
memisc::setSummaryTemplate(
mclogit = c(
"Likelihood-ratio" = "($LR:f1#)",
#p = "($p:#)",
"Log-likelihood" = "($logLik:f1#)",
Deviance = "($deviance:f1#)",
AIC = "($AIC:f1#)",
BIC = "($BIC:f1#)",
N = "($N:d)"
),
mmclogit = c(
#"Likelihood-ratio" = "($LR:f1#)",
#p = "($p:#)",
#"Log-likelihood" = "($logLik:f1#)",
Deviance = "($deviance:f1#)",
#AIC = "($AIC:f1#)",
#BIC = "($BIC:f1#)",
N = "($N:d)"
),
mblogit = c(
"Log-likelihood" = "($logLik:f1#)",
Deviance = "($deviance:f1#)",
AIC = "($AIC:f1#)",
BIC = "($BIC:f1#)",
N = "($N:d)"
)
)
}
if (requireNamespace("emmeans", quietly = TRUE))
emmeans::.emm_register(c("mblogit"), pkg)
options(mblogit.basecat.sep="/")
options(mblogit.show.basecat=TRUE)
options(summary.stats.mclogit=c("Deviance","N"))
options(summary.stats.mmclogit=c("Deviance","N"))
}
|
