## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

#install.packages("BayesAT")
#install.packages("reportRmd")
library("BayesAT")
 

## -----------------------------------------------------------------------------
data <- Simulate_Enroll(n = 100,
                        lambda = 0.03,
                        event = 0.1,
                        M = 1,
                        group = 5,
                        maxt = 5,
                        accrual = 3,
                        censor = 0.9,
                        followup = 2,
                        partition = "Even")

head(data)
tail(data)

## -----------------------------------------------------------------------------
data <- Simulate_Enroll(n = c(30,20,20,15,10,5),
                        lambda = 0.05,
                        event = 0.2,
                        M = 1,
                        group = 6,
                        maxt = 4,
                        accrual = 3,
                        censor = 0.9,
                        followup = 1,
                        partition = "Uneven")

head(data)
tail(data)

## -----------------------------------------------------------------------------
data <- Simulate_Enroll(n = c(30,20,20,15,10,5),
                        lambda = 0.05,
                        event = 0.2,
                        M = 4,
                        group = 6,
                        maxt = 4,
                        accrual = 3,
                        censor = 0.9,
                        followup = 1,
                        partition = "Uneven")
head(data[[1]])
head(data[[2]])
head(data[[3]])
head(data[[4]])