我有一个日期和价格的数据框:
>df
Price Date
1.25 2012-01-05
...
我创建一个货币和一个股票:
currency("USD")
stock("GSPC", "USD")
然后我创建一个 xts 对象:
GSPC <- xts(df$Price, df$Date)
colnames(GSPC) <- "Close"
的预期用途是创建一个吸墨纸组合——这很有效。但是当我尝试
updatePortf(portfolio, Symbols="GSPC", Dates = current.date)
我收到以下错误:
Error in get(Symbol, pos = env) : object 'GSPC' not found
GSPC 没有出现在“showSymbols()”中,所以我认为它需要在某个地方注册。有没有办法注册符号?
受另一个 stackoverflow 答案的启发,一个非常 hacky 的解决方法是:
GSPC$GSPC.High <- GSPC$Open
GSPC$GSPC.Low <- GSPC$Open
GSPC$GSPC.Close <- GSPC$Open
GSPC$GSPC.Volume <- GSPC$Open
GSPC$GSPC.Adjusted <- GSPC$Open
write.zoo(GSPC, file="GSPC.csv", sep=",")
setSymbolLookup(GSPC=list(src="csv",format="%Y-%m-%d"))
getSymbols("GSPC")
有没有更好的方法来创建上述内容?我没有(需要)音量、高、低、关闭和调整 - 我仍然需要它们来做吸墨纸吗?
更新 我设法重现了这个问题,然后明白了它的原因。似乎您无法在本地函数环境中声明 xts 对象。这是一个可重现的脚本:
library(xts)
library(FinancialInstrument)
library(blotter)
library(lubridate)
rm(list=ls(envir=.blotter),envir=.blotter)
runme <- function() {
currency("USD")
stock("GSPC", "USD")
dates <-ymd("2012-03-02") + seq(0,9) * ddays(1)
prices <- abs(rnorm(10))
GSPC <- xts(prices, dates)
colnames(GSPC) <- "Close"
# Initialise
initPortf("p", symbols="GSPC", initDate=ymd("2012-01-01"), currency="USD")
initAcct("a", portfolios="p", initDate=ymd("2012-01-01"), initEq=2e6, currency="USD")
trade.date <- ymd("2012-03-04")
addTxn("p", "GSPC", trade.date, 1, GSPC[trade.date])
updatePortf("p", Symbols="GSPC", Dates = trade.date)
updateAcct("a", Dates = trade.date)
updateEndEq("a", Dates = trade.date)
chart.Posn("p")
}