title: Isolate the significance column from summary(aov()) in r
body: <p>How do I isolate the significance column in summary(aov()) taking the pre-installed data <code>warpbreaks</code> as an example...</p>
  
  <pre><code>&gt; a&lt;-summary(aov(breaks~wool*tension,data=warpbreaks))
  &gt; a
               Df Sum Sq Mean Sq F value   Pr(&gt;F)    
  wool          1    451   450.7   3.765 0.058213 .  
  tension       2   2034  1017.1   8.498 0.000693 ***
  wool:tension  2   1003   501.4   4.189 0.021044 *  
  Residuals    48   5745   119.7                     
  ---
  Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
  
  &gt; somefunction(a)[,6]
  
  1     .  
  2     ***
  3     *
  4     
  </code></pre>