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

DF = get_birthwt_data()

m = lm(wt ~ gage, data=DF)
print(summary(m))

plot(DF$gage, DF$wt, 'p', xlab='GAge', ylab='Weight')
grid()
abline(m)