R/methods_speedglm.R

Defines functions p_value.speedlm

#' @export
p_value.speedlm <- function(model, ...) {
  p <- p_value.default(model, ...)
  if (!is.numeric(p$p)) {
    p$p <- tryCatch(as.numeric(as.character(p$p)), error = function(e) p$p)
  }
  p
}
easystats/parameters documentation built on April 27, 2024, 7:28 p.m.