set.seed(2342)
dat <- data.frame(
treat = rep(0:1, c(50, 30)),
cov1 = c(rnorm(50, 11, 2), rnorm(30, 10, 1)),
cov2 = c(rnorm(50, 12, 2), rnorm(30, 10, 1)),
cov3 = c(rnorm(50, 9, 2), rnorm(30, 10, 1))
)
BestVCGsize(treat ~ cov1 + cov2 + cov3, data=dat)
Run the code above in your browser using DataLab