我有一个时间索引矩阵(xts对象),我只想每个十一月的第四个星期三。获取每个11月的第四个星期三R
require(quantmod)
getSymbols("^GSPC", from="1900-01-01") #returns GSPC
GSPC$WED <- weekdays(time(GSPC)) == "Wednesday"
GSPC$NOV <- months(time(GSPC)) == "November"
G <- GSPC[GSPC$WED==1 & GSPC$NOV==1]
这就像我在R得到解决我的问题,我踢了bash。
write.zoo(G, "wen_in_nov")
我做了下面的技巧:
cat wen_in_nov |
grep -v IND |
cut -c 1-10 |
sed 's/-/ /g' |
awk '{if($3 >= 22 && $3 < 29) print $1, $2, $3, "winner"}' |
sed 's/ /-/g' > fourth_wen
的fourth_wen
文件需要从字符串“赢家”的-
分开,所以我只是在vi这样做。导入到回R:
fourth_wen <- read.zoo("fourth_wen", format="%Y-%m-%d")
而且基本上是第四个星期三在十一月自1950年以来有没有办法用更少的代码做这一切R中?
能否请您介绍如何贵wen_in_nov样子? –
Jaypal,你可以将上面的第6行拷贝到R中,并且你应该在工作目录中有文件(当然你需要安装'quantmod') – Milktrader