x <-matrix( rnorm( 1000 * 500), ncol = 500 )
system.time( cor(x) )
system.time( cora(x) )
s1 <- cor(x)
s2 <- cora(x)
all.equal(s1, s2)
x <- as.matrix(iris[, 1:4])
system.time( for (i in 1:10000) cova(x) )
system.time( for (i in 1:10000) cov(x) )
Run the code above in your browser using DataLab