storks <- read.table("StorksBabies.txt", sep="\t", h=TRUE)

attach(storks)
plot(Birth.rate, Storks.pairs)

summary(lm(Birth.rate ~ Storks.pairs))

summary(lm(I(Birth.rate/Area) ~ I(Storks.pairs/Area)))
summary(lm(I(Birth.rate/Humans) ~ I(Storks.pairs/Humans)))