Nothing
RcppParallel:::test_init()
Rcpp::sourceCpp(system.file("tests/cpp/innerproduct.cpp", package = "RcppParallel"))
x <- runif(1000000)
y <- runif(1000000)
assert(all.equal(
innerProduct(x, y),
parallelInnerProduct(x, y)
))
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.