R/print.pbcor.R

print.pbcor <- function(x,...)
  {
    cat("Call:\n")
    print(x$call)
    
    cat("\nRobust correlation coefficient:", round(x$cor, 4))
    cat("\nTest statistic:", round(x$test, 4)) 
    cat("\np-value:", round(x$p.value, 5), "\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.