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
|
#' @export
model_parameters.mle2 <- model_parameters.glm
#' @export
ci.mle2 <- ci.glm
#' @export
standard_error.mle2 <- function(model, ...) {
insight::check_if_installed("bbmle")
s <- bbmle::summary(model)
.data_frame(
Parameter = names(s@coef[, 2]),
SE = unname(s@coef[, 2])
)
}
#' @export
p_value.mle2 <- function(model, ...) {
insight::check_if_installed("bbmle")
s <- bbmle::summary(model)
.data_frame(
Parameter = names(s@coef[, 4]),
p = unname(s@coef[, 4])
)
}
#' @export
format_parameters.mle2 <- function(model, ...) {
NULL
}
|
