dwww Home | Show directory contents | Find package

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)

Generated by dwww version 1.15 on Wed Jun 26 05:38:14 CEST 2024.