stats_scores <-
structure(list(scores = c(79L, 83L, 57L, 82L, 94L, 83L, 72L, 
74L, 73L, 71L, 66L, 89L, 78L, 81L, 78L, 81L, 88L, 69L, 77L, 79L
)), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"
))