1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#' @export
model_parameters.PMCMR <- function(model, ...) {
insight::check_if_installed("PMCMRplus")
parameters <- PMCMRplus::toTidy(model)
names(parameters) <- c(
"Group1", "Group2", "Statistic", "p", "alternative", "Method",
"Distribution", "p_adjustment"
)
parameters <- .add_htest_parameters_attributes(parameters, model)
class(parameters) <- c("parameters_model", "see_parameters_model", class(parameters))
parameters
}
#' @export
model_parameters.osrt <- model_parameters.PMCMR
#' @export
model_parameters.trendPMCMR <- model_parameters.PMCMR
|
