Прочитайте список, чтобы получить имя объекта xts

Я пытаюсь работать с версией отличного примера кода Гая Йонлина для quantstrat & blotter, но заставить его работать для набора портфолио. К сожалению, я застрял, пытаясь прочитать список символов и заставить R получить доступ к фактически загруженным данным xts.

В следующем коде я правильно нахожу "BND", который является первым символом, но я не могу понять, как сделать TempSym фактическим объектом xts для символа, чтобы он действительно имел строки.

Что я здесь делаю неправильно? Фактическая ошибка, которую я вижу, такова:

[1] "BND"
Error in 1:nrow(TempSym) : argument of length 0

Обратите внимание, что ни одно из закомментированных операторов на данный момент не отлажено. Они основаны на том, к чему, как мне кажется, я иду из примера кода Гая.

library(blotter)
MyPortfolios = c("Port1", "Port2")

MySymbols=list()
MySymbols[[1]]= c("BND","DBC","DXJ")

MySymbols[[2]]= c("ALD", "BND","DBC","ECON")

currency("USD")

get("USD",envir=FinancialInstrument:::.instrument)

Date_Start = "2013-01-01"
Date_End = format(Sys.time(), "%Y-%m-%d")

Sys.setenv(TZ="UTC")

TotalSymbols = 0
for (j in 1:length(MySymbols)){
  TempSym = MySymbols[[j]]
  for (i in 1:length(TempSym)){
    if (!exists(paste(TempSym[i]))){
      stock(TempSym[i], currency="USD", multiplier=1)
      get(TempSym[i],envir=FinancialInstrument:::.instrument)
      getSymbols(TempSym[i], from=Date_Start, to=Date_End, adjust=T)
      TotalSymbols = TotalSymbols + 1
    }
  }
  rm(TempSym)
}

print(paste("Total symbols downloaded: ", TotalSymbols))
rm(TotalSymbols)

suppressWarnings(rm("account.LongTerm",pos=.blotter))
suppressWarnings(rm("portfolio.Port1", pos=.blotter))
suppressWarnings(rm("portfolio.Port2", pos=.blotter))

initPortf(MyPortfolios[1], as.list(MySymbols[[1]]), initDate="2013-06-01")
initPortf(MyPortfolios[2], as.list(MySymbols[[2]]), initDate="2013-06-01")

initAcct("LongTerm", MyPortfolios, initDate="2013-06-01", initEq=600000)

addTxn("Port1", Symbol="BND", TxnDate="2013-06-10", TxnQty=733, TxnPrice=81.83, TxnFees=0)
addTxn("Port1", Symbol="DBC", TxnDate="2013-06-10", TxnQty=343, TxnPrice=26.22, TxnFees=0)
addTxn("Port1", Symbol="DXJ", TxnDate="2013-06-10", TxnQty=259, TxnPrice=46.30, TxnFees=0)

addTxn("Port2", Symbol="ALD", TxnDate="2013-06-11", TxnQty=60,  TxnPrice=49.92, TxnFees=0)
addTxn("Port2", Symbol="BND", TxnDate="2013-06-11", TxnQty=159, TxnPrice=81.83, TxnFees=0)
addTxn("Port2", Symbol="ECON", TxnDate="2013-06-11", TxnQty=58, TxnPrice=26.67, TxnFees=0)

###################
# For each portfolio
# look up each symbol
# and calculate equity for each bar
###################

for (k in 1:length(MyPortfolios)){
  TempList = MySymbols[[k]]
  for (j in 1:length(TempList)){
    TempSym = TempList[[j]]
    print(paste(TempSym))
    for (i in 1:nrow(TempSym)){
#       CurrentDate <- time(TempSym)[i]
#       updatePortf(MyPortfolios[k], Dates = CurrentDate)
#       updateAcct( MyPortfolios[k], Dates = CurrentDate)
#       updateEndEq(MyPortfolios[k], Dates = CurrentDate)
    }
  }
}


# create custom theme
myTheme<-chart_theme()
myTheme$col$dn.col<-'purple'
myTheme$col$dn.border <- 'lightgray'
myTheme$col$up.col<-'orange'
myTheme$col$up.border <- 'lightgray'

chart.Posn(MyPortfolios[1], Symbol = "BND", Dates = "2013::", theme=myTheme)
chart.Posn(MyPortfolios[1], Symbol = "DBC", Dates = "2013::", theme=myTheme)
chart.Posn(MyPortfolios[1], Symbol = "DXJ", Dates = "2013::", theme=myTheme)

chart.Posn(MyPortfolios[2], Symbol = "ALD", Dates = "2013::", theme=myTheme)
chart.Posn(MyPortfolios[2], Symbol = "BND", Dates = "2013::", theme=myTheme)
chart.Posn(MyPortfolios[2], Symbol = "ECON", Dates = "2013::", theme=myTheme)

r xts blotter
person LGTrader    schedule 15.11.2013    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Вам не нужны все эти циклы, поскольку и stocks, и getSymbols являются векторизованными функциями. Вам также не нужна команда get. Также вам не нужно вызывать updatePortf , updateAcct и updateEndEq для каждой метки времени. Вы можете вызвать их с именем портфеля и именем учетной записи, и он автоматически пометит для продажи учетные записи и портфели для всех отметок времени, где у вас есть доступные данные о ценах.

library(blotter)
MyPortfolios = c("Port1", "Port2")

MySymbols = list()
MySymbols[[1]] = c("BND", "DBC", "DXJ")

MySymbols[[2]] = c("ALD", "BND", "DBC", "ECON")

currency("USD")
## [1] "USD"


Date_Start = "2013-01-01"
Date_End = format(Sys.time(), "%Y-%m-%d")

Sys.setenv(TZ = "UTC")


stock(MySymbols[[1]], currency = "USD", multiplier = 1)
## [1] "BND" "DBC" "DXJ"

stock(MySymbols[[2]], currency = "USD", multiplier = 1)
## [1] "ALD"  "BND"  "DBC"  "ECON"


getSymbols(MySymbols[[1]], from = Date_Start, to = Date_End, adjust = T)
## [1] "BND" "DBC" "DXJ"

getSymbols(MySymbols[[2]], from = Date_Start, to = Date_End, adjust = T)
## [1] "ALD"  "BND"  "DBC"  "ECON"




suppressWarnings(rm("account.LongTerm", pos = .blotter))
suppressWarnings(rm("portfolio.Port1", pos = .blotter))
suppressWarnings(rm("portfolio.Port2", pos = .blotter))

initPortf(MyPortfolios[1], as.list(MySymbols[[1]]), initDate = "2013-06-01")
## [1] "Port1"

initPortf(MyPortfolios[2], as.list(MySymbols[[2]]), initDate = "2013-06-01")
## [1] "Port2"


initAcct("LongTerm", MyPortfolios, initDate = "2013-06-01", initEq = 6e+05)
## [1] "LongTerm"


addTxn("Port1", Symbol = "BND", TxnDate = "2013-06-10", TxnQty = 733, TxnPrice = 81.83, TxnFees = 0)
## [1] "2013-06-10 00:00:00 BND 733 @ 81.83"

addTxn("Port1", Symbol = "DBC", TxnDate = "2013-06-10", TxnQty = 343, TxnPrice = 26.22, TxnFees = 0)
## [1] "2013-06-10 00:00:00 DBC 343 @ 26.22"

addTxn("Port1", Symbol = "DXJ", TxnDate = "2013-06-10", TxnQty = 259, TxnPrice = 46.3, TxnFees = 0)
## [1] "2013-06-10 00:00:00 DXJ 259 @ 46.3"


addTxn("Port2", Symbol = "ALD", TxnDate = "2013-06-11", TxnQty = 60, TxnPrice = 49.92, TxnFees = 0)
## [1] "2013-06-11 00:00:00 ALD 60 @ 49.92"

addTxn("Port2", Symbol = "BND", TxnDate = "2013-06-11", TxnQty = 159, TxnPrice = 81.83, TxnFees = 0)
## [1] "2013-06-11 00:00:00 BND 159 @ 81.83"

addTxn("Port2", Symbol = "ECON", TxnDate = "2013-06-11", TxnQty = 58, TxnPrice = 26.67, TxnFees = 0)
## [1] "2013-06-11 00:00:00 ECON 58 @ 26.67"


updatePortf(MyPortfolios[1])
## [1] "Port1"

updatePortf(MyPortfolios[2])
## [1] "Port2"


updateAcct("LongTerm")
## [1] "LongTerm"

updateEndEq("LongTerm")
## [1] "LongTerm"

Кстати. Конкретная ошибка, с которой вы столкнулись, заключалась в том, что вам нужно назначить объект xts для TempSym с помощью get. Но вам действительно не нужно использовать этот цикл, как показано в моем коде выше.

for (k in 1:length(MyPortfolios)){
  TempList = MySymbols[[k]]
  for (j in 1:length(TempList)){
    TempSym = get(TempList[[j]]) # <---------------------
    print(paste(TempSym))
    for (i in 1:nrow(TempSym)){
       CurrentDate <- time(TempSym)[i]
       updatePortf(MyPortfolios[k], Dates = CurrentDate)
       updateAcct( MyPortfolios[k], Dates = CurrentDate)
       updateEndEq(MyPortfolios[k], Dates = CurrentDate)
    }
  }
}
person CHP    schedule 15.11.2013
comment
Спасибо за всю информацию. Мне придется поработать, чтобы понять комментарии к векторизованным функциям. Я ценю указатели. Спасибо! - person LGTrader; 15.11.2013