# Read in the data without any processing<\/div>data <- read.table('http://www.dartmouth.edu/~chance/teaching_aids/data/birthday.txt',as.is=1)<\/div>data[,1] <- as.Date(data[,1],format='%m/%d/%y')<\/div>plot(data,xlab='Date',ylab='Live Births',main='Live Births by Date')<\/div># save the plot<\/div>png('dob-distribution.png',width=700)<\/div>plot(data,xlab='Date',ylab='Live Births',main='Live Births by Date')<\/div>dev.off() # write it<\/div><\/pre><\/div>\n \n <\/div>\n\n