gpa_iq <-
structure(list(obs = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 24L, 
26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 
39L, 40L, 41L, 43L, 44L, 45L, 46L, 47L, 48L, 50L, 51L, 52L, 53L, 
54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 68L, 
69L, 71L, 72L, 74L, 76L, 77L, 78L, 79L, 80L, 83L, 84L, 85L, 86L, 
87L, 88L, 89L), gpa = c(7.9400000000000004, 8.2919999999999998, 
4.6429999999999998, 7.4699999999999998, 8.8819999999999997, 7.585, 
7.6500000000000004, 2.4119999999999999, 6, 8.8330000000000002, 
7.4699999999999998, 5.5279999999999996, 7.1669999999999998, 7.5709999999999997, 
4.7000000000000002, 8.1669999999999998, 7.8220000000000001, 7.5979999999999999, 
4, 6.2309999999999999, 7.6429999999999998, 1.76, 6.4189999999999996, 
9.6479999999999997, 10.699999999999999, 10.58, 9.4290000000000003, 
8, 9.5850000000000009, 9.5709999999999997, 8.9979999999999993, 
8.3330000000000002, 8.1750000000000007, 8, 9.3330000000000002, 
9.5, 9.1669999999999998, 10.140000000000001, 9.9990000000000006, 
10.76, 9.7629999999999999, 9.4100000000000001, 9.1669999999999998, 
9.3480000000000008, 8.1669999999999998, 3.6469999999999998, 3.4079999999999999, 
3.9359999999999999, 7.1669999999999998, 7.6470000000000002, 0.53000000000000003, 
6.173, 7.2949999999999999, 7.2949999999999999, 8.9380000000000006, 
7.8819999999999997, 8.3529999999999998, 5.0620000000000003, 8.1750000000000007, 
8.2349999999999994, 7.5880000000000001, 7.6470000000000002, 5.2370000000000001, 
7.8250000000000002, 7.3330000000000002, 9.1669999999999998, 7.9960000000000004, 
8.7140000000000004, 7.8330000000000002, 4.8849999999999998, 7.9980000000000002, 
3.8199999999999998, 5.9359999999999999, 9, 9.5, 6.0570000000000004, 
6.0570000000000004, 6.9379999999999997), iq = c(111L, 107L, 100L, 
107L, 114L, 115L, 111L, 97L, 100L, 112L, 104L, 89L, 104L, 102L, 
91L, 114L, 114L, 103L, 106L, 105L, 113L, 109L, 108L, 113L, 130L, 
128L, 128L, 118L, 113L, 120L, 132L, 111L, 124L, 127L, 128L, 136L, 
106L, 118L, 119L, 123L, 124L, 126L, 116L, 127L, 119L, 97L, 86L, 
102L, 110L, 120L, 103L, 115L, 93L, 72L, 111L, 103L, 123L, 79L, 
119L, 110L, 110L, 107L, 74L, 105L, 112L, 105L, 110L, 107L, 103L, 
77L, 98L, 90L, 96L, 112L, 112L, 114L, 93L, 106L), gender = c(2L, 
2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 
2L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 
2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L), concept = c(67L, 
43L, 52L, 66L, 58L, 51L, 71L, 51L, 49L, 51L, 35L, 54L, 54L, 64L, 
56L, 69L, 55L, 65L, 40L, 66L, 55L, 20L, 56L, 68L, 69L, 70L, 80L, 
53L, 65L, 67L, 62L, 39L, 71L, 59L, 60L, 64L, 71L, 72L, 54L, 64L, 
58L, 70L, 72L, 70L, 47L, 52L, 46L, 66L, 67L, 63L, 53L, 67L, 61L, 
54L, 60L, 60L, 63L, 30L, 54L, 66L, 44L, 49L, 44L, 67L, 64L, 73L, 
59L, 37L, 63L, 36L, 64L, 42L, 28L, 60L, 70L, 51L, 21L, 56L)), row.names = c(NA, 
-78L), class = c("tbl_df", "tbl", "data.frame"))