# Two Group Designs
prob_mat <- simple_ra_probabilities(N=100)
head(prob_mat)
prob_mat <- simple_ra_probabilities(N=100, prob=0.5)
head(prob_mat)
prob_mat <- simple_ra_probabilities(N=100, prob_each = c(0.3, 0.7),
conditions = c("control", "treatment"))
head(prob_mat)
# Multi-arm Designs
prob_mat <- simple_ra_probabilities(N=100, num_arms=3)
head(prob_mat)
prob_mat <- simple_ra_probabilities(N=100, prob_each=c(0.3, 0.3, 0.4))
head(prob_mat)
prob_mat <- simple_ra_probabilities(N=100, prob_each=c(0.3, 0.3, 0.4),
conditions=c("control", "placebo", "treatment"))
head(prob_mat)
prob_mat <- simple_ra_probabilities(N=100, conditions=c("control", "placebo", "treatment"))
head(prob_mat)
Run the code above in your browser using DataLab