Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.