exclusive_relationship <-
structure(list(num = c(2L, 4L, 1L, 4L, NA, 2L, 2L, 2L, 1L, 4L, 
2L, 4L, 2L, 7L, NA, 1L, NA, 1L, 9L, NA, 4L, 1L, 2L, 4L, 2L, 1L, 
5L, 1L, 9L, 1L, 2L, 1L, 4L, 4L, 1L, 8L, NA, 1L, 6L, 4L, 1L, 1L, 
2L, 2L, 4L, 2L, 5L, 4L, 1L, 1L, 5L, 5L, 4L, 4L, 1L, 5L, 4L, 4L, 
5L, 2L, 6L, 1L, 1L, 4L, 1L, 7L, 5L, 5L, 5L, 1L, 1L, 7L, 6L, 2L, 
NA, 1L, 2L, 6L, 1L, NA, NA, 4L, 1L, 2L, 4L, 1L, 4L, NA, 5L, 2L, 
5L, 4L, 4L, 4L, 1L, 1L, 6L, 6L, NA, 2L, 2L, 2L, 5L, 4L, 2L, 7L, 
1L, 2L, 5L, 4L, 1L, 4L, 6L, 1L, 4L, 4L, 1L, 7L, 5L, 5L, 7L, 2L, 
5L, 4L, 1L, 8L, 5L, 6L, 1L, 2L, 2L, 1L, 1L, 4L, 2L, 4L, 1L, 1L, 
NA, 2L, 10L, 4L, 2L, 4L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 2L, 5L, 
1L, 2L, 4L, 4L, 2L, 1L, 1L, 2L, 4L, NA, 5L, 2L, 1L, 2L, NA, 6L, 
4L, 2L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 4L, 1L, 5L, 4L, 4L, 5L, 
4L, 4L, 3L, 4L, 4L, 2L, NA, 2L, 1L, 2L, 4L, 2L, 2L, 1L, 1L, 1L, 
NA, 1L, 3L, 5L, 4L, 6L, 1L, 2L, 5L, 1L, 8L, 4L, 2L, 1L, 2L, 2L, 
5L)), row.names = c(NA, -218L), class = c("tbl_df", "tbl", "data.frame"
))