tests/test-innerproduct.R

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)
))

Try the RcppParallel package in your browser

Any scripts or data that you put into this service are public.

RcppParallel documentation built on July 27, 2026, 5:08 p.m.