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
|
#' @export
standard_error.gmnl <- function(model, ...) {
cs <- summary(model)$CoefTable
se <- cs[, 2]
pv <- .data_frame(
Parameter = .remove_backticks_from_string(names(se)),
SE = as.vector(se)
)
# rename intercepts
intercepts <- grepl(":(intercept)", pv$Parameter, fixed = TRUE)
pv$Parameter[intercepts] <- sprintf(
"(Intercept: %s)",
sub(":(intercept)", replacement = "", pv$Parameter[intercepts], fixed = TRUE)
)
pv
}
#' @export
p_value.gmnl <- function(model, ...) {
cs <- summary(model)$CoefTable
p <- cs[, 4]
# se <- cs[, 2]
pv <- .data_frame(
Parameter = .remove_backticks_from_string(rownames(cs)),
p = as.vector(p)
)
# rename intercepts
intercepts <- grepl(":(intercept)", pv$Parameter, fixed = TRUE)
pv$Parameter[intercepts] <- sprintf(
"(Intercept: %s)",
sub(":(intercept)", replacement = "", pv$Parameter[intercepts], fixed = TRUE)
)
pv
}
|
