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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
.memiscEnv <- new.env()
.SummaryTemplates <- list()
.SummaryStats <- list()
.CoefTemplates <- list()
.CoefTemplates$default <- c(est="($est:#)($p:*)",
se="(($se:#))")
.CoefTemplates$stat <- c(est="($est:#)($p:*)",
stat="(($stat:#))")
.CoefTemplates$all <- c(est="($est:#)($p:*)",
se="(($se:#))",
stat="(($stat:#))",
p="(($p:#))"
)
.CoefTemplates$all.nostar <- c(est="($est:#)",
se="(($se:#))",
stat="(($stat:#))",
p="(($p:#))"
)
.CoefTemplates$horizontal <- t(c(est="($est:#)($p:*)",
se="(($se:#))"))
# .CoefTemplates$ci.se <- c(est="($est:3)",
# se="(($se:#))",
# ci="[($lwr:#);($upr:#)]")
.CoefTemplates$ci <- c(est="($est:#)",
lwr="[($lwr:#)",
upr="($upr:#)]"
)
.CoefTemplates$ci.se <- c(est="($est:#)",
se="(($se:#))",
lwr="[($lwr:#)",
upr="($upr:#)]"
)
.CoefTemplates$ci.se.horizontal<- matrix(c(est="($est:#)",
se="(($se:#))",
lwr="[($lwr:#)",
upr="($upr:#)]"
),ncol=2,nrow=2,byrow=TRUE,
dimnames=list(
c("est","ci"),
c("est","se")
))
.CoefTemplates$ci.horizontal<- matrix(c(est="($est:#)",
lwr="[($lwr:#)",
upr="($upr:#)]"),
ncol=3,nrow=1,byrow=TRUE,
dimnames=list(
c("est"),
c("est","lwr","upr")
))
.CoefTemplates$ci.p <- c(est="($est:#)",
p="(($p:#))",
lwr="[($lwr:#)",
upr="($upr:#)]"
)
.CoefTemplates$ci.p.horizontal<- matrix(c(est="($est:#)",
p="(($p:#))",
lwr="[($lwr:#)",
upr="($upr:#)]"
),ncol=2,nrow=2,byrow=TRUE,
dimnames=list(
c("est","ci"),
c("est","se")
))
.SummaryTemplates$lm <-
c(
"R-squared" = "($r.squared:f#)",
"adj. R-squared" = "($adj.r.squared:f#)",
sigma = "($sigma:#)",
F = "($F:f#)",
p = "($p:f#)",
"Log-likelihood" = "($logLik:f#)",
Deviance = "($deviance:f#)",
AIC = "($AIC:f#)",
BIC = "($BIC:f#)",
N = "($N:d)"
)
.SummaryStats$lm <- c("adj. R-squared","N")
.SummaryTemplates$glm <-
c(
"Aldrich-Nelson R-sq." = "($Aldrich.Nelson:f#)",
"McFadden R-sq." = "($McFadden:f#)",
"Cox-Snell R-sq." = "($Cox.Snell:f#)",
"Nagelkerke R-sq." = "($Nagelkerke:f#)",
phi = "($phi:#)",
"Likelihood-ratio" = "($LR:f#)",
p = "($p:#)",
"Log-likelihood" = "($logLik:f#)",
Deviance = "($deviance:f#)",
AIC = "($AIC:f#)",
BIC = "($BIC:f#)",
N = "($N:d)"
)
.SummaryStats$glm <- c("Log-likelihood","N")
.SummaryTemplates$default <-
c(
"Aldrich-Nelson R-sq." = "($Aldrich.Nelson:f#)",
"McFadden R-sq." = "($McFadden:f#)",
"Cox-Snell R-sq." = "($Cox.Snell:f#)",
"Nagelkerke R-sq." = "($Nagelkerke:f#)",
"Likelihood-ratio" = "($LR:f#)",
p = "($p:#)",
"Log-likelihood" = "($logLik:f#)",
Deviance = "($deviance:f#)",
AIC = "($AIC:f#)",
BIC = "($BIC:f#)",
N = "($N:d)"
)
.SummaryStats$default <- c("Log-likelihood","N")
.SummaryTemplates$mer <- .SummaryTemplates$lmer
c(
"Log-likelihood" = "($logLik:f#)",
Deviance = "($deviance:f#)",
AIC = "($AIC:f#)",
BIC = "($BIC:f#)",
N = "($N:d)"
)
assign("SummaryTemplates",.SummaryTemplates, envir=.memiscEnv)
assign("CoefTemplates",.CoefTemplates, envir=.memiscEnv)
|
