male_heights <-
structure(list(heights = c(71L, 67L, 69L, 70L, 68L, 63L, 68L, 
72L, 70L, 70L, 66L, 71L, 71L, 68L, 65L, 61L, 71L, 68L, 65L, 66L, 
72L, 69L, 72L, 70L, 69L, 73L, 69L, 66L, 74L, 69L, 71L, 69L, 78L, 
70L, 73L, 69L, 71L, 74L, 72L, 74L, 70L, 72L, 74L, 67L, 72L, 72L, 
69L, 67L, 72L, 71L, 71L, 67L, 71L, 74L, 76L, 69L, 76L, 72L, 70L, 
66L, 67L, 63L, 68L, 76L, 74L, 75L, 68L, 69L, 76L, 71L, 64L, 74L, 
72L, 71L, 70L, 68L, 73L, 71L, 71L, 72L, 73L, 71L, 77L, 73L, 67L, 
67L, 68L, 71L, 75L, 68L, 72L, 67L, 70L, 69L, 64L, 64L, 69L, 66L, 
67L, 70L)), row.names = c(NA, -100L), class = c("tbl_df", "tbl", 
"data.frame"))