knitr::opts_chunk$set(cache = FALSE, echo = TRUE, eval = FALSE)
AFTER that, then you can use several great tools:
profvis
package (built into the latest Rstudio)microbenchmark::microbenchmark()
microbenchmark::microbenchmark( loop = { a <- vector() for (i in 1:1000) a[i] <- runif(1) }, vectorized = { a <- runif(1000) } )
If you have Rstudio version >=0.99.1208
, then it has profiling as a menu item.
alternatively, we wrap any block of code with profvis
This can be a spades()
call, so it will show you the entire model:
profvis::profvis({a <- rnorm(10000000)})
spades
callTry it:
mySim <- simInit( times = list(start = 0.0, end = 2.0, timeunit = "year"), params = list( .globals = list(stackName = "landscape", burnStats = "nPixelsBurned") ), modules = list("randomLandscapes", "fireSpread", "caribouMovement"), paths = list(modulePath = system.file("sampleModules", package = "SpaDES")) ) profvis::profvis({spades(mySim)})
If you have used these tools, then:
SpaDES
model callAdd the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.