library(D3M)
nrep <- 12
cases <- Map(rbeta,rep(30,nrep),rep(1,nrep),rep(5,nrep))
cases <- do.call("rbind",cases)
control <- Map(rbeta,rep(30,nrep),rep(1,nrep),rep(5,nrep))
control <- do.call("rbind",control)
## do not run.
#d3m.parallel(cases,control,rm.mean = FALSE, rm.var = FALSE, bsn = 1000)
Run the code above in your browser using DataLab