inst/doc/version.compare.R

## ------------------------------------------------------------------------
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")
andrie/version.compare documentation built on Oct. 30, 2017, 9:41 p.m.