> rogaine1.mod1 <- aov(hair ~ trt + trt/subj + time + trt:time)
> 
> summary(rogaine1.mod1)
            Df Sum Sq Mean Sq F value    Pr(>F)    
trt          1   8065  8064.5 27.7389 5.231e-05 ***
time         3   2268   755.9  2.5999   0.08391 .  
trt:subj     6  55476  9246.0 31.8027 1.230e-08 ***
trt:time     3   2005   668.2  2.2985   0.11201    
Residuals   18   5233   290.7                      
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
> 
> 
> rogaine1.mod2 <- aov(hair ~ trt*time + Error(subj))
> 
> summary(rogaine1.mod2)

Error: subj
          Df Sum Sq Mean Sq F value Pr(>F)
trt        1   8065  8064.5  0.8722 0.3864
Residuals  6  55476  9246.0               

Error: Within
          Df Sum Sq Mean Sq F value  Pr(>F)  
time       3 2267.6  755.87  2.5999 0.08391 .
trt:time   3 2004.7  668.25  2.2985 0.11201  
Residuals 18 5233.1  290.73                  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
>