Quick start

library(randomization4trial)

Fixed block randomization

fb <- FixedBlock$new(block = c("Control", "Experimental", "Experimental"))

fb |> summary()

## [1] "It is a permuted fixed block randomization with randomization ratio of Control : Experimental = 1 : 2."

fb |> randomize(sample_size = 30)

##  [1] "Experimental" "Experimental" "Control"      "Control"      "Experimental"
##  [6] "Experimental" "Control"      "Experimental" "Experimental" "Experimental"
## [11] "Experimental" "Control"      "Experimental" "Control"      "Experimental"
## [16] "Experimental" "Experimental" "Control"      "Control"      "Experimental"
## [21] "Experimental" "Experimental" "Control"      "Experimental" "Control"     
## [26] "Experimental" "Experimental" "Experimental" "Control"      "Experimental"

References