credits <-
structure(list(credits = c(11L, 11L, 11L, 10L, 10L, 10L, 8L, 
9L, 10L, 10L, 13L, 14L, 15L, 12L, 13L, 13L, 13L, 14L, 13L, 12L, 
14L, 13L, 15L, 14L, 14L, 14L, 13L, 12L, 12L, 15L, 14L, 12L, 13L, 
14L, 13L, 12L, 14L, 15L, 15L, 13L, 15L, 13L, 13L, 13L, 14L, 12L, 
12L, 13L, 12L, 13L, 14L, 13L, 14L, 12L, 14L, 13L, 13L, 14L, 14L, 
14L, 13L, 15L, 14L, 15L, 13L, 14L, 14L, 14L, 12L, 13L, 15L, 14L, 
14L, 13L, 14L, 14L, 15L, 14L, 13L, 13L, 14L, 13L, 14L, 13L, 15L, 
17L, 16L, 17L, 16L, 17L, 17L, 16L, 18L, 16L, 17L, 17L, 16L, 18L, 
17L, 17L)), row.names = c(NA, -100L), class = c("tbl_df", "tbl", 
"data.frame"))