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
|
#################### .gamlss ------
#' @export
model_parameters.gamlss <- model_parameters.gam
#' @export
standard_error.gamlss <- function(model, ...) {
parms <- insight::get_parameters(model)
utils::capture.output({
cs <- summary(model)
})
.data_frame(
Parameter = parms$Parameter,
SE = as.vector(cs[, 2]),
Component = parms$Component
)
}
#' @export
p_value.gamlss <- function(model, ...) {
parms <- insight::get_parameters(model)
utils::capture.output({
cs <- summary(model)
})
.data_frame(
Parameter = parms$Parameter,
p = as.vector(cs[, 4]),
Component = parms$Component
)
}
|
