tests/ompSum.test.R

library(WushUtility)
x <- rnorm(1000)
stopifnot(isTRUE(all.equal(ompSum(x), sum(x))))
wush978/WushUtility documentation built on May 4, 2019, 12:02 p.m.