File: methods_speedglm.R

package info (click to toggle)
r-cran-parameters 0.11.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 3,044 kB
  • sloc: sh: 15; makefile: 2
file content (24 lines) | stat: -rw-r--r-- 352 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 

#' @export
ci.speedglm <- ci.tobit


#' @export
ci.speedlm <- ci.tobit


#' @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
}