# Een dataset met patiëntgegevens
data <- data.frame(
age = c(20, 23, 29, 20, 24, 22, 22, 19, 23, 24, 23, 20, 22, 23, 20, 20, 21, 22, 21, 23),
sex = c("M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F"),
sp_pre_w = c(130, 115, 129, 113, 133, 114, 122, 143, 117, 101, 115, 104, 114, 113, 116, 112, 105, 112, 120, 111),
sp_post_w = c(130, 122, 127, 117, 145, 115, 119, 134, 119, 116, 119, 106, 115, 117, 124, 115, 95, 106, 108, 110),
sp_pre_rb = c(120, 108, 122, 113, 146, 110, 116, 133, 121, 111, 120, 99, 111, 124, 117, 107, 109, 120, 116, 120),
sp_post_rb = c(130, 119, 132, 121, 155, 129, 120, 137, 122, 115, 135, 105, 113, 135, 128, 111, 114, 125, 116, 120),
dp_pre_w = c(80, 74, 85, 76, 79, 73, 85, 86, 74, 69, 76, 66, 68, 74, 79, 67, 65, 77, 76, 74),
dp_post_w = c(82, 77, 81, 77, 81, 75, 87, 82, 76, 80, 75, 70, 72, 76, 80, 70, 59, 75, 64, 72),
dp_pre_rb = c(70, 69, 80, 78, 81, 71, 82, 80, 81, 71, 78, 63, 71, 80, 81, 66, 69, 87, 67, 86),
dp_post_rb = c(77, 78, 90, 84, 79, 79, 86, 81, 79, 76, 85, 64, 72, 88, 93, 68, 72, 86, 70, 84),
hr_pre_w = c(62, 63, 70, 58, 67, 56, 95, 69, 58, 58, 53, 63, 50, 61, 69, 60, 73, 64, 64, 80),
hr_post_w = c(61, 66, 68, 58, 62, 74, 76, 70, 65, 60, 53, 53, 65, 62, 78, 61, 65, 66, 55, 72),
hr_pre_rb = c(64, 67, 68, 65, 63, 65, 81, 64, 58, 62, 59, 55, 47, 66, 71, 56, 69, 68, 68, 74),
hr_post_rb = c(67, 72, 70, 72, 59, 77, 86, 82, 67, 66, 66, 58, 59, 68, 89, 61, 71, 69, 77, 89)
)
# Noteer hieronder je antwoorden