inst/benchmarks/cosine_lsa.r

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

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

m <- 2000
n <- 200
x <- matrix(rnorm(m*n), m, n)

benchmark(coop::cosine(x), lsa::cosine(x), columns=cols, replications=reps)