\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 library(faraway) 
 gavote$undercount <- gavote$ballots - gavote$votes
 options.orig <- options()
 options(width=65)
 summarize(gavote)
\end{Sinput}
\begin{Soutput}
Numeric variables
             perAA         gore         bush        other   
min             0          249          271            5    
med             0.233     2326         3597           86    
max             0.765   154509       140494         7920    
mean            0.243     7020.314     8929.057      381.654
sd              0.163    19317.780    18029.960     1150.975
skewness        0.477        6.111        5.141        5.399
kurtosis       -0.325       40.686       30.035       29.803
nobs          159          159          159          159    
nmissing        0            0            0            0    
             votes        ballots    undercount
min           832          881            0    
med          6299         6712          296    
max        263211       280975        17764    
mean        16331.025    16926.503      595.478
sd          36623.274    37865.152     1584.281
skewness        5.081        5.129        8.798
kurtosis       27.360       28.094       87.478
nobs          159          159          159    
nmissing        0            0            0    

Nonnumeric variables
                equip                   econ  
 LEVER: 74              middle: 69            
 OS-CC: 44              poor  : 72            
 OS-PC: 22              rich  : 18            
 PAPER: 2                                     
 PUNCH: 17                                    
 nobs         : 159.000 nobs         : 159.000
 nmiss        :   0.000 nmiss        :   0.000
 entropy      :   1.846 entropy      :   1.396
 normedEntropy:   0.795 normedEntropy:   0.881
                rural                 atlanta 
 rural: 117             Atlanta   : 15        
 urban: 42              notAtlanta: 144       
                                              
                                              
                                              
 nobs         : 159.000 nobs         : 159.000
 nmiss        :   0.000 nmiss        :   0.000
 entropy      :   0.833 entropy      :   0.451
 normedEntropy:   0.833 normedEntropy:   0.451
\end{Soutput}
\begin{Sinput}
 options(options.orig)
\end{Sinput}
\end{Schunk}
