\begin{Schunk}
\begin{Sinput}
 ddir <- "data"
 gpa <- read.csv(unzip(file.path(ddir, "gpa.csv.zip")))
 head(gpa, 10)
\end{Sinput}
\begin{Soutput}
   student gpa1    job1 gpa2    job2 gpa3    job3 gpa4    job4 gpa5    job5 gpa6    job6    sex
1        1  2.3 2 hours  2.1 2 hours  3.0 2 hours  3.0 2 hours  3.0 2 hours  3.3 2 hours female
2        2  2.2 2 hours  2.5 3 hours  2.6 2 hours  2.6 2 hours  3.0 2 hours  2.8 2 hours   male
3        3  2.4 2 hours  2.9 2 hours  3.0 2 hours  2.8 3 hours  3.3 2 hours  3.4 2 hours female
4        4  2.5 3 hours  2.7 2 hours  2.4 2 hours  2.7 2 hours  2.9 2 hours  2.7 2 hours   male
5        5  2.8 2 hours  2.8 2 hours  2.8 2 hours  3.0 2 hours  2.9 2 hours  3.1 2 hours   male
6        6  2.5 2 hours  2.4 3 hours  2.4 3 hours  2.3 2 hours  2.7 3 hours  2.8 3 hours female
7        7  2.4 3 hours  2.4 2 hours  2.8 3 hours  2.6 2 hours  3.0 2 hours  3.0 2 hours   male
8        8  2.8 2 hours  2.8 2 hours  3.1 2 hours  3.3 2 hours  3.3 2 hours  3.4 2 hours female
9        9  2.8 2 hours  2.7 2 hours  2.7 3 hours  3.1 2 hours  3.1 2 hours  3.5 2 hours   male
10      10  2.8 2 hours  2.8 2 hours  3.0 2 hours  2.7 3 hours  3.0 2 hours  3.0 2 hours   male
   highgpa admitted
1      2.8      yes
2      2.5       no
3      2.5      yes
4      3.8       no
5      3.1      yes
6      2.9       no
7      2.3      yes
8      3.9      yes
9      2.0     <NA>
10     2.8      yes
\end{Soutput}
\end{Schunk}
