# Two Group Designs
clusters <- rep(letters[1:10], times = 1:10)
prob_mat <- cluster_ra_probabilities(clusters = clusters)
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters, m = 4)
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters,
m_each = c(6, 4),
conditions = c("control", "treatment"))
# Multi-arm Designs
prob_mat <- cluster_ra_probabilities(clusters = clusters, num_arms = 3)
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters, m_each = c(3, 3, 4))
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters, m_each = c(3, 3, 4),
conditions = c("control", "placebo", "treatment"))
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters,
conditions = c("control", "placebo", "treatment"))
head(prob_mat)
prob_mat <- cluster_ra_probabilities(clusters = clusters,
prob_each = c(0.1, 0.2, 0.7))
head(prob_mat)
Run the code above in your browser using DataLab