source('../../Data/data_loaders.R')

DF = load_forbes_data()

# Compute an ANOVA table for the regression (like Table 2.7 Page 43)
#
m = lm( pressure ~ boiling_point, data=DF )
anova( m )