Print a stats::cor.test() object for knitr

Just prints the normal output of stats::cor.test().

knit_print.htest(x, ...)

Arguments

x	a psych alpha object
...	ignored

Examples

knitr::knit_print(cor.test(rnorm(100), rnorm(100)))
#> No viewer found, probably documenting or testing
#> 
#> 
#> 
#> ```
#> 
#> 	Pearson's product-moment correlation
#> 
#> data:  rnorm(100) and rnorm(100)
#> t = -1.5753, df = 98, p-value = 0.1184
#> alternative hypothesis: true correlation is not equal to 0
#> 95 percent confidence interval:
#>  -0.34298568  0.04051384
#> sample estimates:
#>        cor 
#> -0.1571549 
#> 
#> ```
#> 
#>