## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(randotools)

## -----------------------------------------------------------------------------
randolist(n = 20, arms = c("Trt1", "Trt2"))

## -----------------------------------------------------------------------------
r <- randolist(n = 10, 
               arms = c("Trt1", "Trt2"), 
               blocksizes = c(1,2))

## -----------------------------------------------------------------------------
randolist(n = 20, 
          arms = c("Trt1", "Trt2"),
          blocksizes = 10)

## -----------------------------------------------------------------------------
rs <- randolist(n = 10, 
                strata = list(sex = c("Male", "Female"),
                              age = c("Teen", "Adult")))

table(rs$sex)
table(rs$sex, rs$arm)

## -----------------------------------------------------------------------------
r2 <- randolist(n = 10, 
               arms = c("A", "A", "B"))

table(r2$arm)

## ----eval=FALSE---------------------------------------------------------------
# randolist(n = 50, n_init = 2, init_probs = c(.8,.2,0))

## ----echo=FALSE, results='hide'-----------------------------------------------
set.seed(1234)

## -----------------------------------------------------------------------------
r <- randolist(n = 50, 
          blocksizes = 1:3, # blocksizes*length(arms) = final blocksizes
          n_init = 25, # 50/min(blocksizes*length(arms))
          init_probs = c(.7,.2,.1))

## -----------------------------------------------------------------------------
table(r$blocksize)/c(2,4,6)

## -----------------------------------------------------------------------------
randolist(n = 20, arms = c("Trt1", "Trt2")) |> summary()

## -----------------------------------------------------------------------------
# create a very small randomisation list for demonstration purposes
rs2 <- randolist(n = 2, blocksizes = 1,
                 arms = c("Aspirin", "Placebo"),
                 strata = list(sex = c("Male", "Female"),
                               age = c("Teen", "Adult")))

## -----------------------------------------------------------------------------
randolist_to_db(rs2, target_db = "REDCap", 
                rando_enc = data.frame(arm = c("Aspirin", "Placebo"),
                                       rand_result = c(1, 2)),
                strata_enc = list(sex = data.frame(sex = c("Male", "Female"), code = 1:2),
                                  age = data.frame(age = c("Teen", "Adult"), code = 1:2)))

## ----warning=FALSE------------------------------------------------------------
randolist_to_db(rs2, target_db = "secuTrial",
                strata_enc = list(sex = data.frame(sex = c("Male", "Female"), code = 1:2),
                                  age = data.frame(age = c("Teen", "Adult"), code = 1:2)))