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

DF = get_birthwt_data()

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

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