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
|
#' @export
model_parameters.sem <- model_parameters.default
#' @export
standard_error.sem <- function(model, ...) {
if (!.is_semLme(model)) {
return(NULL)
}
if (is.null(model$se)) {
insight::format_alert(
"Model has no standard errors. Please fit model again with bootstrapped standard errors."
)
return(NULL)
}
.data_frame(
Parameter = names(model$se),
SE = unname(model$se)
)
}
#' @export
p_value.sem <- function(model, ...) {
if (!.is_semLme(model)) {
return(NULL)
}
stat <- insight::get_statistic(model)
if (is.null(stat)) {
return(NULL)
}
.data_frame(
Parameter = stat$Parameter,
p = 2 * stats::pnorm(abs(stat$Statistic), lower.tail = FALSE)
)
}
|
