#type your code in here
plot(x = arbuthnot$year, y= arbuthnot$girls)
there is a spike in baptism
It varies but it ends up decreasing slightly
#code for your plot here
plot(arbuthnot$year, arbuthnot$boys/(arbuthnot$boys + arbuthnot$girls) , type = "l")