if (FALSE) {
data(balance_example, package = "stepp")
ranger2 <- c(950, 1050)
ranger1 <- c(300, 500)
maxnsubpops <- 50
res_bal <- balance_patients(ranger1, ranger2, maxnsubpops, balance_example$covar,
plot = TRUE, verbose = TRUE, contour = TRUE, nlevels = 6)
}
Run the code above in your browser using DataLab