\begin{Schunk}
\begin{Sinput}
 sb1 <- summary(bush1)
 attributes(sb1)
\end{Sinput}
\begin{Soutput}
$names
 [1] "call"           "terms"          "family"        
 [4] "deviance"       "aic"            "contrasts"     
 [7] "df.residual"    "null.deviance"  "df.null"       
[10] "iter"           "na.action"      "deviance.resid"
[13] "coefficients"   "aliased"        "dispersion"    
[16] "df"             "cov.unscaled"   "cov.scaled"    

$class
[1] "summary.glm"
\end{Soutput}
\end{Schunk}
