R Notebook

library(tidyverse)

── Attaching core tidyverse packages ────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.3     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.3     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.2     ── Conflicts ──────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

library(blockrand)

blockrand(n = 15, id.prefix = 'M', block.prefix = 'M', stratum='Male', block.sizes = c(2,4))

library(randomizr)

Warning: package ‘randomizr’ was built under R version 4.3.2

complete_ra(N = 7) |> table()

0 1 
3 4 

frame <- data.frame(type = c(rep("Private",15), rep("Public", 8))) |>
  mutate(group = block_ra(blocks = type))
frame |>
  group_by(type, group) |>
  tally()