tsplot(timex(lap.xts), lap.xts[,'Cmort'], col=4, ylab=NA, gg=TRUE)
title('Daily Cardiovascular Mortality')
DJIA = ts(djia[,'Close'])
x = cbind(DJIA, Return = diff(log(DJIA)))
tsplot(timex(djia), x, col=5, main="What, Me Worry?")
Run the code above in your browser using DataLab