作者Caecilius (下好離手)
看板R_Language
標題[問題] For迴圈整理存入新的矩陣
時間Wed Jan 18 14:33:27 2017
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)
[問題敘述]:
範例如下，我是在網路上抓到海龜的策略，然後因為yahoo資料每天晚上只有隔天的資料
所以希望能每天早上能更新今天的各值，令其存入新的矩陣Sign。
如 "1513.TW" "2014.TW" "2344.TW"
x$Min20 ... ... ...
x$Max20 ...
x$Min10 ...
x$Max10
x$Min55
x$Max55
N
結果只知道怎麼存一維的資料，要塞其他東西都卡住，麻煩各位大大了。
[程式範例]:
library(quantmod)
library(PerformanceAnalytics)
#.TW/.TWO
symbols <- c("1513.TW","2014.TW","2344.TW")
initDate="2016-01-01"
getSymbols(symbols, from = initDate)
Sign <- NULL
for(symbol in symbols){
x=get(symbol)
x$Min20 <- runMin(x[,grep('Low',colnames(x))], 20)
x$Max20 <- runMax(x[,grep('High',colnames(x))],20)
x$Min10 <- runMin(x[,grep('Low',colnames(x))], 10)
x$Max10 <- runMax(x[,grep('High',colnames(x))],10)
x$Min55 <- runMin(x[,grep('Low',colnames(x))], 55)
x$Max55 <- runMax(x[,grep('High',colnames(x))],55)
x$N <- ATR(x[,c(2,3,4)], n=20, maType=EMA, wilder=TRUE)[,'atr']
assign(symbol,x)
#for (i in symbols){
# Sign[i] <- tail(x$Min20,1)
#} 這也只有跑出第一筆的Min20....
}
[環境敘述]:
R version 3.3.2 (2016-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1
[關鍵字]:
for 迴圈
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.105.245.30
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1484721209.A.4B8.html
1F：推 wudil8846: 其實你的getSymbol並沒有真的連出去，因為台股 01/19 09:21
2F：推 wudil8846: 的代號是數字開頭，所以它抓不到 01/19 09:23
3F：→ wudil8846: 更正：是getSymbols()並沒有真的連出去 01/19 09:28
可是我有抓到YAHOO的資料耶
※ 編輯: Caecilius (175.182.119.5), 01/20/2017 15:47:15