tests/nChoose2Inv.R

library(lme4ord)
xx <- floor(2^seq(0, 100, length = 100))
yy <- choose(xx, 2)
stopifnot(all.equal(xx, nChoose2Inv(yy)))
stevencarlislewalker/lme4ord documentation built on May 30, 2019, 4:43 p.m.