xtsのcsv出力
# ライブラリの呼び出し
library(quantmod)
# 開始日
s_date <- as.Date("1998-01-01")
# 終了日
e_date <- as.Date("2013-11-22")
# データ1
y <- window(data$EURUSD.Close,start=s_date,end=e_date)
# データ2
x <- window(data$GSPC.Close,start=s_date,end=e_date)
# データの統合
yx <- merge(y,x)
# data.frame型への変換
yx <- data.frame(yx)
# csv形式でのファイル出力
write.csv(yx,"data.csv")作業ディレクトリに「data.csv」ファイルが生成する。