Nothing
library(Rcpp)
library(RUnit)
sourceCpp(system.file("tests/cpp/innerproduct.cpp", package = "RcppParallel"))
test.innerproduct <- function() {
x <- runif(1000000)
y <- runif(1000000)
checkEquals(
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.