inst/test_suite/smallPcorTest.R

library(sprint)
library(RUnit)

# random filled 3 by 4 matrices
mat1 <- matrix(rexp(12), nrow=3)
mat2 <- matrix(rexp(12), nrow=3)

print("about to run pcor")
pcor_result = pcor(mat1, mat2)
cor_result = cor(mat1, mat2)
checkEqualsNumeric(cor_result, pcor_result[,])
print(pcor_result)

Try the sprint package in your browser

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

sprint documentation built on May 30, 2017, 8:25 a.m.