inst/benchmarks/cosine_lsa.r

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)

Try the coop package in your browser

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

coop documentation built on Nov. 17, 2017, 4:05 a.m.