classdata <-
structure(list(m1 = c(67, 59, 100, 81, 80, 63, 100, 44, 82, 67, 
81, 74, 99, 58, 99, 98, 65, 72, 50, 72, 63, 83, 80, 69, 79, 77, 
63, 70, 66, 89, 75, 87, 86, 58, 72, 73, 85, 70, 71, 59, 77, 92, 
72, 82, 62, 79, 92, 71, 96, 81, 61, 55, 94, 50, 68, 94, 59, 85, 
58, 78, 64, 68, 79, 68, 86, 48, 61, 73, 51, 56, 51, 46, 93, 59, 
66, 64, 92, 62, 73, 83, 66, 71, 85, 64, 71, 54, 79, 88, 81, 82, 
61, 81, 80, 73, 65, 98, 62, 100, 93, 83, 70, 38, 72, 75, 70, 
67, 76, 97, 61, 72, 84, 74, 86, 83, 59, 95, 71, 81, 92, 92, 84, 
83, 73, 84, 77, 84, 74, 78, 79, 72, 79, 98, 90, 91, 62, 82, 74, 
63, 86, 95, 76, 64, 59, 85, 45, 91, 68, 74, 100, 66, 88, 81, 
72, 68, 65, 96, 98, 89, 81, 53, 100, 57, 74, 95), lecture = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L), .Label = c("a", "b", "c"), class = "factor")), row.names = c(NA, 
-164L), class = c("tbl_df", "tbl", "data.frame"))