\begin{Schunk}
\begin{Sinput}
 gpa2 <- gpa2[order(gpa2$student, gpa2$time), ]
 head(gpa2, 40)
\end{Sinput}
\begin{Soutput}
    student    sex highgpa admitted time     job gpa
1.1       1 female     2.8      yes    1 2 hours 2.3
1.2       1 female     2.8      yes    2 2 hours 2.1
1.3       1 female     2.8      yes    3 2 hours 3.0
1.4       1 female     2.8      yes    4 2 hours 3.0
1.5       1 female     2.8      yes    5 2 hours 3.0
1.6       1 female     2.8      yes    6 2 hours 3.3
2.1       2   male     2.5       no    1 2 hours 2.2
2.2       2   male     2.5       no    2 3 hours 2.5
2.3       2   male     2.5       no    3 2 hours 2.6
2.4       2   male     2.5       no    4 2 hours 2.6
2.5       2   male     2.5       no    5 2 hours 3.0
2.6       2   male     2.5       no    6 2 hours 2.8
3.1       3 female     2.5      yes    1 2 hours 2.4
3.2       3 female     2.5      yes    2 2 hours 2.9
3.3       3 female     2.5      yes    3 2 hours 3.0
3.4       3 female     2.5      yes    4 3 hours 2.8
3.5       3 female     2.5      yes    5 2 hours 3.3
3.6       3 female     2.5      yes    6 2 hours 3.4
4.1       4   male     3.8       no    1 3 hours 2.5
4.2       4   male     3.8       no    2 2 hours 2.7
4.3       4   male     3.8       no    3 2 hours 2.4
4.4       4   male     3.8       no    4 2 hours 2.7
4.5       4   male     3.8       no    5 2 hours 2.9
4.6       4   male     3.8       no    6 2 hours 2.7
5.1       5   male     3.1      yes    1 2 hours 2.8
5.2       5   male     3.1      yes    2 2 hours 2.8
5.3       5   male     3.1      yes    3 2 hours 2.8
5.4       5   male     3.1      yes    4 2 hours 3.0
5.5       5   male     3.1      yes    5 2 hours 2.9
5.6       5   male     3.1      yes    6 2 hours 3.1
6.1       6 female     2.9       no    1 2 hours 2.5
6.2       6 female     2.9       no    2 3 hours 2.4
6.3       6 female     2.9       no    3 3 hours 2.4
6.4       6 female     2.9       no    4 2 hours 2.3
6.5       6 female     2.9       no    5 3 hours 2.7
6.6       6 female     2.9       no    6 3 hours 2.8
7.1       7   male     2.3      yes    1 3 hours 2.4
7.2       7   male     2.3      yes    2 2 hours 2.4
7.3       7   male     2.3      yes    3 3 hours 2.8
7.4       7   male     2.3      yes    4 2 hours 2.6
\end{Soutput}
\end{Schunk}
