\n \n \n \n \n\n
\n \n \n \n
# Two groups?<\/div>data[,3] <- as.factor(weekdays(data[,1]))<\/div>plot(data[,3],data[,2],main='Live Births by Day of Week')<\/div>png('dob-dayofweek.png',width=700)<\/div>plot(data[,3],data[,2],main='Live Births by Day of Week')<\/div>dev.off() # write it<\/div> <\/div> <\/div><\/pre><\/div>\n          \n        <\/div>\n\n        \n          view raw<\/a>\n          gistfile1.txt<\/a>\n          This Gist<\/a> brought to you by GitHub<\/a>.\n        <\/div>\n      <\/div>\n    \n  \n<\/div>\n')