# In our brief R session today, we tested the change in a model's
# sum of squares (equivalent to testing a change in R squared).

> 2274493916
[1] 2274493916
> 2274493916 -  2156104439
[1] 118389477
> MSc <- 2274493916 -  2156104439
> MSe <-  59864240
> MSc / MSe
[1] 1.977633

# Here, we evaluate the F statistic:
> 1 - pf(MSc/MSe, 1, 58)
[1] 0.1649753
>