tests/test-sum.R

RcppParallel:::test_init()

Rcpp::sourceCpp(system.file("tests/cpp/sum.cpp", package = "RcppParallel"))

v <- as.numeric(1:10000000)

assert(all.equal(
   vectorSum(v),
   parallelVectorSum(v)
))

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.