\begin{Schunk}
\begin{Sinput}
 (datsum <- summary(dat))
\end{Sinput}
\begin{Soutput}
     income            educ            age          religion      gender   
 Min.   :-56816   Min.   : 2.00   Min.   : 9.00   cath  :177   female:532  
 1st Qu.: -2225   1st Qu.: 8.00   1st Qu.:19.00   jewish: 87   male  :468  
 Median : 10565   Median :10.00   Median :22.00   muslem: 94               
 Mean   : 10473   Mean   :10.02   Mean   :22.04   other :294               
 3rd Qu.: 23772   3rd Qu.:12.00   3rd Qu.:25.00   prot  :169               
 Max.   : 77189   Max.   :21.00   Max.   :37.00   roman :105               
 NA's   :80       NA's   :40                      NA's  : 74               
\end{Soutput}
\end{Schunk}
