problem-11.10

problem-11.10  The commands to perform this analysis are
> summary(lm(attendance ~ league, data=MLBattend))
...
Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept)  1716321      36259   47.33   <2e-16 ***
leagueNL      127296      52093    2.44    0.015 *
...

We see that the mean difference of 127,296 fans is significant with a p-value of 0.015.