library(rbenchmark)
library(mops)
m = 5000
n = 5000
x = matrix(rnorm(m*n), m, n)
cols <- cols <- c("test", "replications", "elapsed", "relative")
benchmark(a <- colSums(x), b <- col_sums(x), columns=cols)
all.equal(a, b)
benchmark(a <- colSums(x, na.rm=TRUE), b <- col_sums(x, na.rm=TRUE), columns=cols)
all.equal(a, b)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.