class(arbuthnot) names[arbuthnot] arbuthnotstotal - arbuthnotsboys + arbuthnottarts plot(x - arbuthnotsyear, y - arbuthnotsboys, type . "I , co - "blue , dabe Years , wiab . Counts", ylim - range[arbuthnotsboys, arbuthnot$girls, arbuthnotstotal))) lines(x-arbuthnot$year, y- arbuthnotspins, type . "I , co . red ") lines(x - arbuthnot*year, y = arbuthnot tots , type . "I", col . green"] title[ Baptism Counts of Boys & Girls by Years )] legend( tosleft legend = cl boys tots "), col = cl blue , red , green ], Ity - ()