\begin{Schunk}
\begin{Sinput}
 m1.noint <- lm(mathach ~ -1 +  ses + size + sector + gender + ethnicity, data = hsb)
 hsb.mm1.noint <- model.matrix(m1.noint)
 hsb.mm1.noint <- as.data.frame(hsb.mm1.noint)
 hsb.smry.noint <- rockchalk::summarize(hsb.mm1.noint)
\end{Sinput}
\begin{Soutput}
Numeric variables
             ses       size    sectorPublic   sectorCatholic   genderFemale
min          -3.76    100         0              0                0        
med           0      1016         1              0                1        
max           2.69   2713         1              1                1        
mean          0      1056.86      0.51           0.49             0.53     
sd            0.78    604.17      0.50           0.50             0.50     
skewness     -0.23      0.57     -0.03           0.03            -0.11     
kurtosis     -0.38     -0.36     -2             -2               -1.99     
nobs       7185      7185      7185           7185             7185        
nmissing      0         0         0              0                0        
           ethnicityNon-white
min           0              
med           0              
max           1              
mean          0.27           
sd            0.45           
skewness      1.01           
kurtosis     -0.98           
nobs       7185              
nmissing      0              
\end{Soutput}
\begin{Sinput}
 hsb.smry.noint <- hsb.smry.noint[[1]][ , c("mean", "sd")]
\end{Sinput}
\end{Schunk}
