inst/benchmarks/pcor_dense.r

In coop: Co-Operation: Fast Covariance, Correlation, and Cosine Similarity Operations

library(coop)
library(rbenchmark)
cols <- cols <- c("test", "replications", "elapsed", "relative")
reps <- 25

m <- 10000
n <- 250
x <- matrix(rnorm(m*n), m, n)

benchmark(cor(x), pcor(x), replications=reps, columns=cols)