Question

目标：使用时间戳（也就是不是追踪止损）产生止损限制。大部分编码都是从Ilya Kipnis＆＃39;基于ATR计算位置大小的设计。代码链接在下面的注释中，因此可以复制。

我相当确定该功能会产生预期效果，但我不知道order.price需要什么类型的信息。我似乎需要指出这是一个函数，而不是一个数字。

我按照连锁顺序运行以下功能，以计算order.price。

stopATR <- function(atrMod="") {
  atrString <- paste0("atr",atrMod)
  atrCol <- grep(atrString, colnames(mktdata))
  atrTimeStamp <- mktdata[timestamp, atrCol]
  atrStop <- atrTimeStamp * pctATR*100
  atrString <- paste0("EMA.currentPrice")
  priceCol <- grep(atrString, colnames(mktdata))
  currentPrice <- mktdata[timestamp, priceCol]
  out <- currentPrice-atrStop
  colnames(out) <- "atrStopLoss"
  return(out)
}

#rules
add.rule(strategy.st, name="ruleSignal", 
         arguments=list(sigcol="buyTrigger", sigval=TRUE, ordertype="market", 
                        orderside="long", replace=FALSE, prefer="Open", 
                        osFUN=osDollarATR, tradeSize=tradeSize,
                        pctATR=pctATR, atrMod="X"), 
         type="enter", path.dep=TRUE,
         label="newEntry")

add.rule(strategy.st, name="ruleSignal", 
         arguments=list(sigcol="buyTrigger", sigval=TRUE, ordertype="stoplimit", 
                        orderside="long", replace=FALSE, 
                        orderqty='all',
                        order.price=stopATR,
                        orderset="orders"), 
         type="chain",
         parent="newEntry",
         label="stopLossLong",
         path.dep=TRUE)

错误是：

Error in as.numeric(orderprice) : 
  cannot coerce type 'closure' to vector of type 'double'

Answer 1

我编写了以下函数并通过add.indicator运行它。然后我只是引用mktdata中的列来将其用作stoplimit。

stopOut <- function (x, n, maType, HLC, pctATR) {
  EMA <- EMA(x, n, maType=maType)
  ATR <- ATR(HLC, n=n, maType=maType)
  ATR <- ATR$atr
  atrStop <- EMA - (ATR*100*pctATR)
  return(atrStop)
}

add.indicator(strategy.st, name="stopOut",
              arguments=list(x=quote(HLC(mktdata)), n=period, wilder=TRUE, HLC=quote(HLC(mktdata)), pctATR=pctATR),
              label="stopLimit")

add.rule(strategy.st, name="ruleSignal", 
         arguments=list(sigcol="buyTrigger", 
                        sigval=TRUE, 
                        ordertype="stoplimit", 
                        orderside="long", 
                        replace=FALSE, 
                        orderqty='all',
                        order.price=quote(mktdata$EMA.stopLimit[timestamp]),
                        orderset="orders"),
         type="chain",
         parent="newEntry",
         label="takeProfitLong",
         path.dep=TRUE)

运行功能链顺序，order.price

1 个答案: