Nothing
mb <- function(..., times=25) { if(require(microbenchmark, quietly=TRUE)) { mb.c <- match.call() mb.c[[1]] <- quote(microbenchmark::microbenchmark) res <- eval(mb.c, parent.frame()) res.sum <- summary(res) cat(attr(res.sum, "unit"), "\n") print(res.sum[1:5]) } else { warning("Package microbenchmark not available.") } }
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.