library(Rcpp)
library(RUnit)
sourceCpp(system.file("tests/cpp/sum.cpp", package = "RcppParallel"))
test.sum <- function() {
v <- as.numeric(c(1:10000000))
checkEquals(
vectorSum(v),
parallelVectorSum(v)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.