# Ten clusters, of sizes 1 through 10
clusters <- rep(letters[1:10], times = 1:10)
# Two Group Designs
Z <- cluster_ra(clusters = clusters)
table(Z, clusters)
Z <- cluster_ra(clusters = clusters, m = 4)
table(Z, clusters)
Z <- cluster_ra(clusters = clusters, m_each = c(6, 4),
conditions = c("control", "treatment"))
table(Z, clusters)
# Multi-arm Designs
Z <- cluster_ra(clusters = clusters, num_arms = 3)
table(Z, clusters)
Z <- cluster_ra(clusters = clusters, m_each = c(3, 3, 4))
table(Z, clusters)
Z <- cluster_ra(clusters = clusters, m_each = c(3, 3, 4),
conditions = c("control", "placebo", "treatment"))
table(Z, clusters)
Z <- cluster_ra(clusters = clusters,
conditions = c("control", "placebo", "treatment"))
table(Z, clusters)
Run the code above in your browser using DataLab