tests/ci.balance.R

library(genetics)

set.seed(7981357)
x <- abs(rnorm(100,1))
ci.balance(x,1, minval=0)
ci.balance(x,1)

x <- rnorm(100,1)
x <- ifelse(x>1, 1, x)
ci.balance(x,1, maxval=1)
ci.balance(x,1)
kindlychung/genetics documentation built on May 20, 2019, 9:58 a.m.