RcppParallel/inst/tests/runit.innerproduct.R at master · RcppCore/RcppParallel · GitHub

Name: RcppParallel/inst/tests/runit.innerproduct.R at master · RcppCore/RcppParallel · GitHub
Rating: 4.7 (8943 reviews)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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

}