Displaying 1 result from an estimated 1 matches for "crunch1".
Did you mean:
crunch
2008 Nov 04
2
ggplot & annotating charts
...ar = c(6, 8, 6, 6) + 0.1)
gulf1 <- as.yearmon("1990-8-2")
gulf2 <- as.yearmon("1991-2-28")
asia1 <- as.yearmon("1997-9-11")
asia2 <- as.yearmon("1998-11-14")
sep1 <- as.yearmon("2001-9-11")
sep2 <- as.yearmon("2002-9-14")
crunch1 <- as.yearmon("2007-8-9")
crunch2 <- as.yearmon("2009-11-14")
plot(vix.close, type = "n",ylab="S&P500 volatility",
xlab="Date",cex.axis=1.5,cex.lab=1.7,ylim=c(0,90) )
rect(gulf1, par("usr")[3], gulf2,
par("usr")[4]...