source("http : //www .openintro .org/stat/ data/ arbuthnot . k") str (arbuthnot) class(bobsthnot) diacarboysnot) bobeakboc boySogparmabeogirls = "female" summary(a$bethnor$goesguthnot$girls) debut wroteshutsnegraarbuthnotbythnet$girls, type = "1", col = "red") agbe[Anetsybathnot$yeabutonetabbyshnovSboys)'1", col = "blue") anDothat Games, + arbuthnot$boysarbuthnot$test = NA arbuthnot$total, =type="1", xlab ="Year", ylab="count") gerbubbpetspobadt$yeape # 41", col= "black" , xlab= "Year" , ylab = "Count") Dioexx==aabbobhoo$spear, , y=arbuthnot$girls , type = "1", col = "red") OFBUERABEFyBaE *=arbuthnot$boys , type= "1", col = "blue") ige (xct"Girls", "Bbys", "Total") col=c("Red", "Blue", "Black") legend( "boplety"= 0, title="Legend", text . font=2) Boys and Girls from 1629 to 1710") , Ity=1:2, title("Christening Records for