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