vix <- read.csv("http://ichart.finance.yahoo.com/table.csv?s=^VIX",
stringsAsFactors=FALSE)[, c(1, 7)]
pdf("vixplot.pdf")
plot(as.Date(vix[, 1]), vix[, 2], main="VIX, 1990 to Present",
xlab='Date', ylab='VIX', cex=0.3, type='p', ylim=c(0, 80))
dev.off()
And it's a decent looking plot:

No comments:
Post a Comment