2

在 quantstrat 中应用策略时出现此错误：

if (length(j) == 0 || (length(j) == 1 && j == 0)) { 中的错误：需要 TRUE/FALSE 的缺失值

我的代码如下：

.blotter <- new.env()
.strategy <- new.env()
Sys.setenv(TZ="UTC")
STRATEGY<-'PFReplicate'

try(rm.strat(STRATEGY))

n<-130

#SMA signals and rules
LONG.ENTRY.SIGNAL.SMA<-"CLOSE_GT_SMA_SIG_LONG"
LONG.EXIT.SIGNAL.SMA<-"CLOSE_LT_SMA_SIG_LONG"
SHORT.ENTRY.SIGNAL.SMA<-"CLOSE_LT_SMA_SIG_SHORT"
SHORT.EXIT.SIGNAL.SMA<-"CLOSE_GT_SMA_SIG_SHORT"
LONG.ENTRY.RULE.SMA<-'L_ENTRY_SMA_RULE'
LONG.EXIT.RULE.SMA<-'L_EXIT_SMA_RULE'
SHORT.ENTRY.RULE.SMA<-'S_ENTRY_SMA_RULE'
SHORT.EXIT.RULE.SMA<-'S_EXIT_SMA_RULE'


LONG.ORDERSET.NAME<-'CLOSELONGSMA'
SHORT.ORDERSET.NAME<-'CLOSESHORTSMA'

strategy(STRATEGY,store=TRUE)


Set up SMA indicator
add.indicator(strategy = STRATEGY,name='SMA',
              arguments=list(x=quote(mktdata),n),
              label='SMA')

#Set up signals 
#SMA signals
add.signal(strategy = STRATEGY,name="sigCrossover",
           arguments=list(columns=c('Close','SMA'),
                          relationship="gt"),
           label=LONG.ENTRY.SIGNAL.SMA)
add.signal(strategy = STRATEGY,name="sigCrossover",
           arguments=list(columns=c('Close','SMA'),
                          relationship="lt"),
           label=LONG.EXIT.SIGNAL.SMA)
add.signal(strategy = STRATEGY,name="sigCrossover",
           arguments=list(columns=c('Close','SMA'),
                          relationship="lt"),
           label=SHORT.ENTRY.SIGNAL.SMA)
add.signal(strategy = STRATEGY,name="sigCrossover",
           arguments=list(columns=c('Close','SMA'),
                          relationship="gt"),
           label=SHORT.EXIT.SIGNAL.SMA)


#Add our SMA rules (enabled)
add.rule(strategy = STRATEGY,name="ruleSignal",
         arguments=list(sigcol=LONG.ENTRY.SIGNAL.SMA,sigval=TRUE,
                        orderqty=100,ordertype="market",
                        TxnFees=0,orderside="long",
                        orderset=LONG.ORDERSET.NAME),
         type="enter",label=LONG.ENTRY.RULE.SMA)

add.rule(strategy = STRATEGY,name="ruleSignal",
         arguments=list(sigcol=LONG.EXIT.SIGNAL.SMA,sigval=TRUE,
                        orderqty='all',ordertype="market",
                        TxnFees=0,orderside="long",
                        orderset=LONG.ORDERSET.NAME),
         type="exit",label=LONG.EXIT.RULE.SMA)

add.rule(strategy = STRATEGY,name="ruleSignal",
         arguments=list(sigcol=SHORT.ENTRY.SIGNAL.SMA,sigval=TRUE,
                        orderqty=100,ordertype="market",
                        TxnFees=0,orderside="short",
                        orderset=SHORT.ORDERSET.NAME),
         type="enter",label=SHORT.ENTRY.RULE.SMA)

add.rule(strategy = STRATEGY,name="ruleSignal",
         arguments=list(sigcol=SHORT.EXIT.SIGNAL.SMA,sigval=TRUE,
                        orderqty='all',ordertype="market",
                        TxnFees=0,orderside="short",
                        orderset=SHORT.ORDERSET.NAME),
         type="exit",label=SHORT.EXIT.RULE.SMA)



symbol <- mar.rep
port <- 'mar.rep'

currency("USD")
stock(primary_id = symbol,currency = "USD",multiplier = 1)
Sys.setenv(TZ="UTC")

initDate <- '1971-01-05'
startDate <- '1972-01-06'
endDate<- '2010-12-31'
initEq <- 1e6



initPortf(name = port,symbols = symbol,initDate=initDate)
initAcct(name = port,portfolios = port,initDate=initDate,initEq=initEq)
initOrders(portfolio = port,initDate=initDate)
applyStrategy(strategy =STRATEGY,portfolios = port,debug = TRUE)

我试图保持代码简单，以避免愚蠢的错误，但我仍然得到这个。applyStrategy 运行并列出数千个事务，30 分钟后，我收到此错误。我猜修复很简单，但我没有看到它。谢谢你的帮助！

4

1 回答 1

4

发布我的问题后，我发现了问题。对于在运行 quantstrat 时遇到此错误的任何其他人，请检查您的数据是否有 NA。另外，请确保所有资产都有明确定义的列，这些列与add.signal.

这听起来很明显，但在我的案例中，数据管理是获得结果的最大障碍。我的数据来自不同的数据提供者，具有不同的列格式（主要是 csv 文件）。在花了几个小时清理和设置我的数据以运行该策略之后，它正在工作（我在处理的第 7 小时）。

Quantstrat 可能很难调试，因为一些错误消息不容易解释。请注意，此错误消息告诉您语句中的一个或多个逻辑比较if会导致NA. 如果您看到此错误，请检查您的数据NA以查看这是否可能是问题所在。

nrow(na.omit(data)) == nrow(data)

如果这不是真的，那么您有 NA。你可以删除它们

data_cleaned <- na.omit(data)

但这取决于您的数据格式。

对不起，如果这对每个人来说都是一个补救错误。我只是想为这个错误发布一个详细的答案，因为它似乎对人们来说是相当多的。如果我昨天看到这样的解释，我会节省几个小时的挫败感！

于 2015-07-19T16:38:16.747 回答