# Aug 4, 2011 "plunge" headlines are in the air tonight

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Today’s financial headlines are littered with the word ‘plunge.’ Considering today’s (cl-cl) drop on the S&P500 was just about -5%, I don’t know that I would exactly call that a plunge.**Intelligent Trading**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Fig 1. Historical ts plot of S&P500 returns <= -5%

The following R code produced a time series plot of historical occasions where this occurred.

`###################################################`

library(quantmod)

getSymbols(“^GSPC”,from=”1950-01-01″,to=”2012-01-01″)

adj<-GSPC$GSPC.Adjusted

rtn<-(adj/lag(adj,1)-1)[2:length(adj)]

r05<-rtn[rtn<= -.05]

plot(sort(r05),type=’o’,main=’S&P500 1950-present returns <= -5%')

`###################################################`

Although the frequency of such occurrences is arguably rare, the 1987 drop is much more worthy of the 1 day label ‘plunge.’

One other disturbing observation in the data, however, is the large temporal clustering of occurrences in the recent 2008 region. Now that’s behavior to be concerned about (not to mention revised flash crash data pts.).

filtered 1 day cl-cl returns <=-5% sorted by date

To

**leave a comment**for the author, please follow the link and comment on their blog:**Intelligent Trading**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.