R/print.gof.R

Defines functions print.gof

Documented in print.gof

print.gof <- function(x, ..., digits = max(3, getOption("digits") - 3)){
  
  D <- x$D
  X2 <- x$X2
  df <- x$df
  
  cat("D  = ", round(D, digits = digits), ", df = ", df,
    ", P(>D) = ", pchisq(D, df, lower.tail = FALSE), '\n', sep = "")

  cat("X2 = ", round(X2, digits = digits), ", df = ", df,
    ", P(>X2) = ", pchisq(X2, df, lower.tail = FALSE), '\n', sep = "")
    
}

Try the aods3 package in your browser

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

aods3 documentation built on July 8, 2022, 5:06 p.m.