\begin{Schunk}
\begin{Sinput}
 ## Inspect data output, figure out what we want.
 ## 
 summary(mod0)$coef
\end{Sinput}
\begin{Soutput}
             Estimate Std. Error  t value     Pr(>|t|)
(Intercept) 2.7312803 8.59793508 0.317667 7.514275e-01
first       4.2607692 1.86205478 2.288208 2.431902e-02
momIQ       0.4651099 0.07340265 6.336418 7.602465e-09
dadIQ       0.4916806 0.06180512 7.955337 3.531280e-12
\end{Soutput}
\begin{Sinput}
 ## get p values
 summary(mod0)$coef[2:4, 4]
\end{Sinput}
\begin{Soutput}
       first        momIQ        dadIQ 
2.431902e-02 7.602465e-09 3.531280e-12 
\end{Soutput}
\begin{Sinput}
 ## check whether they meet significance criterion
 alpha <- .05
 alpha
\end{Sinput}
\begin{Soutput}
[1] 0.05
\end{Soutput}
\begin{Sinput}
 summary(mod0)$coef[2:4, 4] < alpha
\end{Sinput}
\begin{Soutput}
first momIQ dadIQ 
 TRUE  TRUE  TRUE 
\end{Soutput}
\end{Schunk}
