1

我是一个新手，在通过 demo() 之后尝试创建自己的细菌测试代码。我正在使用蜡烛吞没模式策略，这是公式

buy=(close(1) < close) and (high(1) < high) and (low(1) < low) 
sell=(close(1) > close) and (high(1) > high) and (low(1) > low) 
*(1) represents previous day data

我应该如何获取前一天的收盘价、最高价和开盘价？我应该如何向该策略添加指标、规则和信号。

到目前为止，我能够编写这么多代码，但被困在添加指标、规则和信号上

require(quantstrat)
ttz<-Sys.getenv('TZ')
Sys.setenv(TZ='UTC')

stock.str='AAPL' 
currency('USD')
stock(stock.str,currency='USD',multiplier=1)
  initDate="2013-12-31"
  endDate=Sys.Date()
  portfolio.st='engulf'
account.st='engulf'
initPortf(portfolio.st,symbols=stock.str, initDate=initDate)
initAcct(account.st,portfolios=portfolio.st, initDate=initDate,initEq=initEq)
initOrders(portfolio=portfolio.st,initDate=initDate)

stratENGULF<- strategy(portfolio.st)

#previous day data
n<-nrow(mktdata)
predata<-mktdata[n-1,]

#add indictors,rule and signal
stratENGULF <- add.indicator("Dont_know_what_to_add" )
stratENGULF <- add.signal("Dont_know_what_to_add" )
stratENGULF <- add.rule("Dont_know_what_to_add" )
#Cl(mktdata),Hi(mktdata) and Lo(mktdata) for getting current close,high and low price

我能够使用此代码检索前一天的数据

#previous day data
n<-nrow(mktdata)
predata<-mktdata[n-1,]

但不知道如何添加predata's close和比较mktdata指标和信号的收盘价。

解决这个问题的任何想法

4

0 回答 0