R/print.twocor.R

print.twocor <- function(x,...)
  {
    cat("Call:\n")
    print(x$call)
    
    cat("\nFirst correlation coefficient:", round(x$r1, 4))
    cat("\nSecond correlation coefficient:", round(x$r2, 4))
    cat("\nConfidence interval (difference):", round(x$ci, 4)) 
    if (!is.null(x$p.value)) cat("\np-value:", round(x$p.value, 5), "\n\n") else cat("\n\n")
  }

Try the WRS2 package in your browser

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

WRS2 documentation built on May 2, 2019, 4:46 p.m.