data <- Simulate_Enroll(n = c(50,20,20), lambda = 0.03,
event = 0.1, M = 3, group = 3, maxt = 5,
accrual = 3, censor = 0.9, followup = 2,
partition = "Uneven")
head(data[[1]])
head(data[[2]])
head(data[[3]])
Run the code above in your browser using DataLab