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
}

Try the parameters package in your browser

Any scripts or data that you put into this service are public.

parameters documentation built on Nov. 2, 2023, 6:13 p.m.