E.g.
# Create the dataset
data <- data.frame(
time = c(5, 8, 12, 3, 7, 2, 10, 6, 4, 9,
6, 11, 7, 13, 2, 5, 9, 3, 8, 12),
status = c(1, 0, 1, 1, 0, 1, 0, 1, 0, 1,
0, 1, 0, 1, 1, 0, 1, 0, 1, 0),
group = c(rep("A", 10), rep("B", 10))
)
# View the dataset
print(data)## time status group
## 1 5 1 A
## 2 8 0 A
## 3 12 1 A
## 4 3 1 A
## 5 7 0 A
## 6 2 1 A
## 7 10 0 A
## 8 6 1 A
## 9 4 0 A
## 10 9 1 A
## 11 6 0 B
## 12 11 1 B
## 13 7 0 B
## 14 13 1 B
## 15 2 1 B
## 16 5 0 B
## 17 9 1 B
## 18 3 0 B
## 19 8 1 B
## 20 12 0 B