par(mfrow = c(2, 1))
plot(
ldeaths,
xlab = "Year",
ylab = "pounds",
main = "Monthly deaths from lung disease (UK)"
)
ldeaths.adj <- ldeaths / monthdays(ldeaths) * 365.25 / 12
plot(
ldeaths.adj,
xlab = "Year",
ylab = "pounds",
main = "Adjusted monthly deaths from lung disease (UK)"
)
Run the code above in your browser using DataLab