library(boot)
data(channing)
channing <- channing[, c("sex", "entry", "time", "cens")]
channing$cens <- as.factor(1 - channing$cens)
channing$sex <- as.factor(channing$sex)
n <- nrow(channing)
channing[sample(1:n, 4), ]| sex | entry | time | cens | |
|---|---|---|---|---|
| 329 | Female | 981 | 57 | 1 |
| 195 | Female | 935 | 137 | 1 |
| 313 | Female | 960 | 28 | 1 |
| 366 | Female | 814 | 58 | 1 |
