Nothing
#' @export
standard_error.coxme <- function(model, ...) {
beta <- model$coefficients
if (length(beta) > 0) {
.data_frame(
Parameter = .remove_backticks_from_string(names(beta)),
SE = sqrt(diag(stats::vcov(model)))
)
}
}
## TODO add ci_method later?
#' @export
p_value.coxme <- function(model, ...) {
stat <- insight::get_statistic(model)
if (!is.null(stat)) {
.data_frame(
Parameter = stat$Parameter,
p = as.vector(1 - stats::pchisq(stat$Statistic^2, df = 1))
)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.