Skip to content

Instantly share code, notes, and snippets.

@tota
Last active December 15, 2015 17:38
Show Gist options
  • Save tota/5297314 to your computer and use it in GitHub Desktop.
Save tota/5297314 to your computer and use it in GitHub Desktop.
日経平均ボラティリティー・インデックスのローソク足
library(quantmod)
url <- "http://indexes.nikkei.co.jp/nkave/historical/nikkei_stock_average_vi_daily_jp.csv"
df <- read.csv(url, fileEncoding="CP932")
N225VI <- as.xts(read.zoo(df[1:nrow(df)-1,]))
dimnames(N225VI)[[2]] <- c("Close", "Open", "High", "Low")
N225VI <- OHLC(N225VI)
candleChart(N225VI)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment