par(mfrow=c(2,1))
plot(milk,xlab="Year",ylab="pounds",
main="Monthly milk production per cow")
milk.adj <- milk/monthdays(milk)*365.25/12
plot(milk.adj,xlab="Year",ylab="pounds",
main="Adjusted monthly milk production per cow")
Run the code above in your browser using DataLab