heart_transplant <-
structure(list(id = c(15L, 43L, 61L, 75L, 6L, 42L, 54L, 38L, 
85L, 2L, 103L, 12L, 48L, 102L, 35L, 95L, 31L, 3L, 74L, 5L, 77L, 
99L, 20L, 70L, 101L, 66L, 29L, 17L, 19L, 4L, 100L, 8L, 44L, 16L, 
45L, 1L, 22L, 39L, 10L, 35L, 37L, 68L, 60L, 62L, 28L, 47L, 32L, 
65L, 83L, 13L, 9L, 73L, 79L, 36L, 32L, 98L, 87L, 97L, 37L, 11L, 
94L, 96L, 90L, 53L, 89L, 24L, 27L, 93L, 51L, 67L, 16L, 84L, 91L, 
92L, 58L, 88L, 86L, 82L, 81L, 80L, 78L, 76L, 64L, 72L, 71L, 69L, 
7L, 23L, 63L, 30L, 59L, 56L, 50L, 46L, 21L, 49L, 41L, 14L, 26L, 
40L, 34L, 33L, 25L), acceptyear = c(68L, 70L, 71L, 72L, 68L, 
70L, 71L, 70L, 73L, 68L, 67L, 68L, 71L, 74L, 70L, 73L, 69L, 68L, 
72L, 68L, 72L, 73L, 69L, 72L, 74L, 72L, 69L, 68L, 68L, 68L, 74L, 
68L, 70L, 68L, 71L, 67L, 69L, 70L, 68L, 71L, 70L, 72L, 71L, 71L, 
69L, 71L, 69L, 72L, 73L, 68L, 68L, 72L, 72L, 70L, 71L, 73L, 73L, 
73L, 71L, 68L, 73L, 73L, 73L, 71L, 73L, 69L, 69L, 73L, 71L, 73L, 
68L, 73L, 73L, 73L, 71L, 73L, 73L, 71L, 73L, 72L, 72L, 72L, 72L, 
72L, 72L, 72L, 68L, 69L, 71L, 69L, 71L, 71L, 71L, 71L, 69L, 71L, 
70L, 68L, 69L, 70L, 69L, 69L, 69L), age = c(53L, 43L, 52L, 52L, 
54L, 36L, 47L, 41L, 47L, 51L, 39L, 53L, 56L, 40L, 43L, 40L, 54L, 
54L, 29L, 20L, 41L, 49L, 55L, 52L, 49L, 53L, 50L, 20L, 59L, 40L, 
35L, 45L, 42L, 56L, 36L, 30L, 42L, 50L, 42L, 52L, 61L, 45L, 49L, 
39L, 53L, 47L, 64L, 51L, 53L, 54L, 47L, 56L, 53L, 48L, 41L, 28L, 
46L, 23L, 41L, 47L, 43L, 26L, 52L, 47L, 51L, 51L, 8L, 47L, 48L, 
19L, 49L, 42L, 47L, 44L, 47L, 54L, 48L, 29L, 52L, 46L, 48L, 52L, 
48L, 26L, 47L, 47L, 50L, 58L, 32L, 44L, 41L, 38L, 45L, 48L, 43L, 
36L, 45L, 53L, 30L, 48L, 40L, 48L, 33L), survived = structure(c(2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 
2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 
2L, 1L, 1L, 1L, 1L, 1L), .Label = c("alive", "dead"), class = "factor"), 
    survtime = c(1L, 2L, 2L, 2L, 3L, 3L, 3L, 5L, 5L, 6L, 6L, 
    8L, 9L, 11L, 12L, 16L, 16L, 16L, 17L, 18L, 21L, 21L, 28L, 
    30L, 31L, 32L, 35L, 36L, 37L, 39L, 39L, 40L, 40L, 43L, 45L, 
    50L, 51L, 53L, 58L, 61L, 66L, 68L, 68L, 69L, 72L, 72L, 77L, 
    78L, 80L, 81L, 85L, 90L, 96L, 100L, 102L, 109L, 110L, 131L, 
    149L, 153L, 165L, 180L, 186L, 188L, 207L, 219L, 263L, 265L, 
    285L, 285L, 308L, 334L, 340L, 340L, 342L, 370L, 397L, 427L, 
    445L, 482L, 515L, 545L, 583L, 596L, 630L, 670L, 675L, 733L, 
    841L, 852L, 915L, 941L, 979L, 995L, 1032L, 1141L, 1321L, 
    1386L, 1400L, 1407L, 1571L, 1586L, 1799L), prior = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
    1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 
    1L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L), .Label = c("no", 
    "yes"), class = "factor"), transplant = structure(c(1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 
    2L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 
    1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 
    2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 
    1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L), .Label = c("control", 
    "treatment"), class = "factor"), wait = c(NA, NA, NA, NA, 
    NA, NA, NA, 5L, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 1L, 5L, 
    NA, NA, NA, 1L, 5L, NA, NA, NA, NA, NA, 36L, 38L, NA, NA, 
    20L, 1L, NA, 12L, 2L, 12L, 10L, 19L, 3L, 3L, NA, 71L, 21L, 
    17L, 12L, 32L, 17L, NA, 27L, 67L, 46L, NA, 96L, 60L, 21L, 
    NA, 26L, 4L, 13L, 160L, 41L, 139L, 83L, NA, 28L, 32L, 57L, 
    28L, 37L, NA, 310L, 21L, 31L, 8L, NA, 6L, 26L, 210L, 46L, 
    32L, 4L, 31L, 10L, 51L, 3L, 27L, 16L, 78L, 67L, 83L, 2L, 
    8L, 36L, 58L, 37L, NA, 41L, 23L, 51L, 25L)), row.names = c(NA, 
-103L), class = c("tbl_df", "tbl", "data.frame"))