gifted <-
structure(list(score = c(159L, 164L, 154L, 157L, 156L, 150L, 
155L, 161L, 163L, 162L, 154L, 159L, 167L, 155L, 159L, 159L, 160L, 
154L, 160L, 151L, 166L, 161L, 162L, 169L, 160L, 161L, 166L, 163L, 
159L, 155L, 155L, 157L, 151L, 162L, 164L, 159L), fatheriq = c(115L, 
117L, 115L, 113L, 110L, 113L, 118L, 117L, 111L, 122L, 111L, 112L, 
119L, 120L, 114L, 111L, 111L, 115L, 126L, 115L, 114L, 115L, 115L, 
112L, 115L, 117L, 116L, 114L, 116L, 111L, 112L, 115L, 111L, 119L, 
111L, 114L), motheriq = c(117L, 113L, 118L, 131L, 109L, 109L, 
119L, 120L, 128L, 120L, 117L, 120L, 126L, 114L, 129L, 118L, 115L, 
111L, 111L, 109L, 124L, 122L, 118L, 121L, 124L, 118L, 128L, 119L, 
123L, 117L, 117L, 111L, 101L, 113L, 121L, 123L), speak = c(18L, 
20L, 20L, 12L, 17L, 13L, 19L, 18L, 22L, 18L, 19L, 20L, 20L, 22L, 
17L, 18L, 21L, 18L, 12L, 21L, 15L, 20L, 15L, 23L, 18L, 20L, 17L, 
22L, 15L, 13L, 17L, 10L, 17L, 23L, 18L, 20L), count = c(26L, 
37L, 32L, 24L, 34L, 28L, 24L, 32L, 28L, 27L, 32L, 33L, 35L, 21L, 
27L, 29L, 32L, 32L, 35L, 29L, 39L, 30L, 33L, 36L, 35L, 31L, 36L, 
36L, 24L, 29L, 25L, 31L, 29L, 28L, 36L, 30L), read = c(1.8999999999999999, 
2.5, 2.2000000000000002, 1.7, 2.2000000000000002, 1.8999999999999999, 
1.8, 2.2999999999999998, 2.1000000000000001, 2.1000000000000001, 
2.2000000000000002, 2.2999999999999998, 2.2000000000000002, 1.7, 
1.8, 2, 2.2999999999999998, 2.2000000000000002, 2.2000000000000002, 
2, 2.3999999999999999, 2.1000000000000001, 2.2999999999999998, 
2.2999999999999998, 2.2999999999999998, 2.2999999999999998, 2.3999999999999999, 
2.3999999999999999, 1.8, 2.1000000000000001, 2, 2.2000000000000002, 
2.1000000000000001, 2.1000000000000001, 2.2999999999999998, 2.2000000000000002
), edutv = c(3, 1.75, 2.75, 2.75, 2.25, 1.25, 2, 2.25, 1, 2.25, 
1.75, 2, 0.75, 2.5, 1.5, 1.75, 1.75, 2, 2.75, 2, 2, 2, 2.25, 
2, 2, 2, 1.25, 2.25, 1.5, 1.75, 2.75, 1.75, 3, 1.25, 1, 1.75), 
    cartoons = c(2, 3.25, 2.5, 2.25, 2.5, 3.75, 3, 2.5, 4, 2.75, 
    3.75, 2.75, 4, 2.5, 3.75, 3.25, 3.25, 3, 1.75, 2.75, 2.75, 
    3.5, 2.75, 2.75, 3.5, 3, 3.75, 2.75, 3.5, 3.5, 2.25, 3.5, 
    2.25, 3.5, 4.5, 3.25)), row.names = c(NA, -36L), class = c("tbl_df", 
"tbl", "data.frame"))