## ------------------------------------------------------------------------
library("version.compare")
library("knitr")
scale.factor <- 1.0
## ----benchmark, echo=TRUE------------------------------------------------
r <- switch(Sys.info()[["sysname"]],
Linux = {
rscript <- findRscript()
rv <- version.time(rscript, {
as.character(getRversion())
})
idx <- which(unlist(rv$results) == "3.4.1")
rscript[idx]
},
Windows = findRscript(version = "3.4.1.*x64"
)
)
test.results <- RevoMultiBenchmark(rVersions = r,
threads = c(1, 4, 8),
scale.factor = scale.factor)
## ----compare-results, eval = FALSE---------------------------------------
# kable(test.results)
# plot(test.results, theme_size = 8, main = "Elapsed time")
## ----performance-speed-up, eval = FALSE----------------------------------
# kable(urbanekPerformance(test.results), digits = 2)
# plot(urbanekPerformance(test.results), theme_size = 8, main = "Relative Performance")
## ----compare-results, echo = FALSE, fig.width=6, fig.height=3, out.width="800px", dpi=1200, keep=TRUE----
kable(test.results)
plot(test.results, theme_size = 8, main = "Elapsed time")
## ----performance-speed-up, echo = FALSE, fig.width=6, fig.height=3, out.width="800px", dpi=1200----
kable(urbanekPerformance(test.results), digits = 2)
plot(urbanekPerformance(test.results), theme_size = 8, main = "Relative Performance")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.