> 
> task.aov <- aov(time ~ gender*distract)
> anova(task.aov)
Analysis of Variance Table

Response: time
                Df Sum Sq Mean Sq F value    Pr(>F)    
gender           1     25      25  4.1667 0.0638509 .  
distract         1    121     121 20.1667 0.0007385 ***
gender:distract  1      4       4  0.6667 0.4301273    
Residuals       12     72       6                      
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
>