r - TA インジケーターで n 期間前を参照しながら、quantstrat で複数の条件を実装する

Question

ADX インジケーターを使用して、quantstrat で非常に基本的な戦略を適用しようとしています。この戦略は、ADX が低いが上昇傾向にある状況を探します。具体的には次のとおりです。

ルール 1: ADX <20;

ルール 2: 今日の ADX が 5 期間前の ADX よりも大きい。

ルール 3: ADX >35 の場合はトレードを終了する

Guy Yollen の優れたガイドに従おうとしましたが、「トレーディング ロジック」コンポーネントで行き詰っています。

library(blotter)
currency("USD")
stock("SPY",currency="USD",multiplier=1)
get("USD",envir=FinancialInstrument:::.instrument)
get("SPY",envir=FinancialInstrument:::.instrument)

Sys.setenv(TZ="UTC")
startDate <- '1998-01-01'
endDate <- '2014-07-31'

getSymbols('SPY',from=startDate,to=endDate,index.class=c("POSIXt","POSIXct"),
           adjust=T)

SPY = to.monthly(SPY,indexAt='endof',drop.time=FALSE)


SPY$ADX <- ADX(HLC(SPY))

#rm.strat(a.strategy)
a.strategy <- "TestADX"
initPortf(a.strategy,'SPY',initDate='1997-12-31')
initAcct(a.strategy,portfolios=a.strategy,initDate='1997-12-31',initEq=1e6)

first(SPY)


myTheme <- chart_theme()
myTheme$col$dn.col <- 'lightblue'
myTheme$col$dn.border <- 'lightgray'
myTheme$col$up.border <- 'lightgray'


###Not sure why this one-liner does not work but not critical
chartSeries(x=SPY,theme=myTheme,name="SPY",TA="addADX()")  

#####################Trading logic############################################

for( i in 1:nrow(SPY))
{
  #update values for this date
  CurrentDate <- time(SPY)[i]
  equity = getEndEq(a.strategy,CurrentDate)
  ClosePrice <- as.numeric(Cl(SPY[i,]))
  Posn <- getPosQty(a.strategy,Symbol='SPY',Date=CurrentDate)
  UnitSize = as.numeric(trunc(equity/ClosePrice))
  adx <- as.numeric(SPY[i,'ADX'])
  diffadx <- as.numeric(diff(SPY[i,'ADX',lag=5]))#####INSERT

  #change mkt position if necessary

  if( !is.na(adx) )#if the moving avg has begun
  {
    if(Posn == 0) {#No position test to go long
        #if((adx < 20) && (diff(adx,lag=5) > 0.2)){
        if((adx < 20) && (diffadx > 0.2)){    #####INSERT
        #enter long position
        addTxn(a.strategy,Symbol='SPY',TxnDate=CurrentDate,
               TxnPrice=ClosePrice,TxnQty=UnitSize,TxnFees=0)}
    }else {#Have a position so check exit
      if ( adx > 35){
        #exit position
        addTxn(a.strategy,Symbol='SPY',TxnDate=CurrentDate,
               TxnPrice = ClosePrice,TxnQty = -Posn,TxnFees=0)}
    }
  }

  #Calculate P&L and resulting Equity with blotter
  updatePortf(a.strategy,Dates=CurrentDate)
  updateAcct(a.strategy,Dates=CurrentDate)
  updateEndEq(a.strategy,Dates=CurrentDate)
}#end Dates loop

##End of trading logic piece####

この段階で、R はエラーを返します: if ((adx < 20) && (diffadx > 0.2)) { : TRUE/FALSE が必要な場所に値がありません

chart.Posn(a.strategy,Symbol='SPY',Dates='1998::',theme=myTheme)     

plot(add_ADX(n=14,col=4,on=1))