tests/ompSum.test.R

library(WushUtility)
x <- rnorm(1000)
stopifnot(isTRUE(all.equal(ompSum(x), sum(x))))
wush978/WushUtility documentation built on May 28, 2017, 7:31 a.m.