r - Rでforループが機能しない

Question

コードは次のとおりです。

require("quantmod")

getSymbols("SPY")  

ticker <- SPY[,4]

win <- 0 

for(i in 11:NROW(ticker))

j <- i-10

if(ticker[i] > ticker[j])               

win <- win + 1

今日の終値が10日前の終値よりも大きいかどうか、およびwin変数をインクリメントするかどうかを確認したいと思います。私も次のことを試しました：

for(i in 11:NROW(ticker))

if(ticker[i] > ticker[i-10])               

win <- win + 1             

どちらも機能するはずなので、実際には2つの問題があります。最初にそれを機能させるだけでなく、なぜそれらが機能しないのかを理解することも重要です。両方のフラグ「引数の長さはゼロです」。私の勘は、犯人はティッカー[j]またはティッカー[i-10]だということです。主な理由は、ハードコードされた値に置き換えると機能するためです。

Answer 1

問題は、ticker [i]が数値オブジェクトを返さないため、それらを比較したり減算したりできないことです。楽しみのためにこれを試してください：

str(ticker[15])
ticker[15]-ticker[10]

したがって、それらをas.numericでラップするだけで、必要なものが得られます。

require("quantmod")
getSymbols("SPY")  
ticker <- SPY[,4]
win <- 0 
for(i in 11:NROW(ticker)){
    j <- i-10
    if(as.numeric(ticker[i]) > as.numeric(ticker[j])){             
        win <- win + 1
    }
}

Answer 2

これは for ループとは関係ありません。これは、操作が実行される前に、xts/zoo がインデックスによって整列されるためです。 ticker[i] > ticker[j]インデックスが異なるため空です。

for ループも必要ありません。シリーズを遅らせることで、これを簡単に行うことができます。

merged.ticker <- merge(ticker, lag(ticker,10))
win <- sum(merged.ticker[,1] > merged.ticker[,2], na.rm=TRUE)
lose <- sum(merged.ticker[,1] < merged.ticker[,2], na.rm=TRUE)

Answer 3

中かっこはあなたの友達、私の友達です。