# 2-arm designs
prob_mat <- complete_ra_probabilities(N = 100)
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, m = 50)
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, prob = 0.3)
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, m_each = c(30, 70),
conditions = c("control", "treatment"))
head(prob_mat)
# Multi-arm Designs
prob_mat <- complete_ra_probabilities(N = 100, num_arms = 3)
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, m_each = c(30, 30, 40))
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, m_each = c(30, 30, 40),
conditions = c("control", "placebo", "treatment"))
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, conditions = c("control", "placebo", "treatment"))
head(prob_mat)
prob_mat <- complete_ra_probabilities(N = 100, prob_each = c(0.2, 0.7, 0.1))
head(prob_mat)
Run the code above in your browser using DataLab