# NOT RUN {
X <- cBern(10, rep(0.5,3), 0.5, type="exchange")
X <- cBern(10, rep(0.5,3), c(0.2,0.2), type="DCP")
X <- cBern(5, c(0.4,0.5,0.6), c(0.2,0.3), type="1-dependent")
rho <- list()
rho[[1]] <- c(0.2,0.3)
rho[[2]] <- 0.1
X <- cBern(2, c(0.7,0.8,0.9),rho=rho,type="General", k=2)
# }
Run the code above in your browser using DataLab