R/print.wald.test.R

Defines functions print.wald.test

Documented in print.wald.test

print.wald.test <- function(x, ..., digits = max(3, getOption("digits") - 3)){
  Terms <- x[["Terms"]]
  b <- x[["b"]]
  H0 <- x[["H0"]]
  v <- x[["result"]][["chi2"]]
  df <- x[["df"]]
  verbose <- x[["verbose"]]
  namb <- names(b)[Terms]
  
  if(verbose){
    cat("\nCoefficients:\n")
    print(format(b, digits = digits), quote = FALSE)
    cat("\nVar-cov matrix of the coefficients:\n")
    print(format(x[["varb"]], digits = digits), quote = FALSE)
    cat("\nTest-design matrix:\n")
    print(x[["L"]])
    cat("\nPositions of tested coefficients in the vector of coefficients:",
        paste(Terms, collapse = ", "), "\n")
    if(is.null(namb))
      cat("\nH0: ",
          paste(paste(format(b[Terms], digits),
                      format(H0, digits = digits),
                      sep = " = "),
                collapse = "; "), "\n")
    else{
      cat("\nH0: ",
          paste(paste(namb, format(H0, digits = digits), sep = " = "),
                collapse = "; "), "\n")
    }
	#cat("\nTest results:\n")
  }
  if(is.null(df)) {
  	cat("\nChi-squared test:\n")
  	cat("X2 = ", format(v["chi2"], digits = digits), ", df = ", v["df"],
  		", P(> X2) = ", format(v["P"], digits = digits), "\n", sep = "")
    }
  else{
    v <- x[["result"]][["Ftest"]]
    cat("\nF test:\n")
    cat("F = ", format(v["Fstat"], digits = digits), 
        ", df1 = ", v["df1"],
        ", df2 = ", v["df2"],
        ", P(> F) = ", format(v["P"], digits = digits), "\n\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.