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
|
#' @export
model_parameters.gamm <- function(model,
ci = 0.95,
bootstrap = FALSE,
iterations = 1000,
verbose = TRUE,
...) {
model <- model$gam
class(model) <- c("gam", "lm", "glm")
model_parameters(
model,
ci = ci,
bootstrap = bootstrap,
iterations = iterations,
...
)
}
#' @export
ci.gamm <- ci.gamm4
#' @export
standard_error.gamm <- standard_error.gamm4
#' @export
p_value.gamm <- p_value.gamm4
#' @export
simulate_model.gamm <- function(model, iterations = 1000, ...) {
model <- model$gam
class(model) <- c("gam", "lm", "glm")
simulate_model(model, iterations = iterations, ...)
}
|
