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
|
#' @include set_coef.R
#' @rdname set_coef
#' @export
set_coef.afex_aov <- function(model, coefs, ...) {
if (isTRUE(checkmate::check_matrix(model$lm$coefficients))) {
mat <- matrix(coefs, ncol = ncol(model$lm$coefficients))
dimnames(mat) <- dimnames(model$lm$coefficients)
model$lm$coefficients <- mat
} else {
model$lm$coefficients <- coefs
}
return(model)
}
#' @include get_coef.R
#' @rdname get_coef
#' @export
get_coef.afex_aov <- function(model, ...) {
b <- insight::get_parameters(model)
b <- stats::setNames(b$Estimate, paste(b$Parameter, b$Response, sep = ":"))
return(b)
}
#' @include get_vcov.R
#' @rdname get_vcov
#' @export
get_vcov.afex_aov <- function(model, vcov = NULL, ...) {
if (!is.null(vcov) && !is.logical(vcov)) {
stop("The `vcov` argument is not supported for models of this class.")
}
vcov <- sanitize_vcov(model, vcov)
insight::get_varcov(model)
}
#' @include get_predict.R
#' @rdname get_predict
#' @export
get_predict.afex_aov <- function(model, newdata = NULL, ...) {
out <- stats::predict(model, newdata = newdata)
out <- data.table(estimate = out)
out <- add_rowid(out, newdata)
return(out)
}
|
