我想在这个帖子上反弹
http://r.789695.n4.nabble.com/Multi-currency-example-for-blotter-td1692132.html
基本上，我正在使用quantstrat测试策略，其中我有多种货币的工具，但我希望以美元汇总报表（即美元账户和投资组合）
为了简化目的，让我说我正在回顾一个简单的20-120 MA交叉策略，在BRENT期货（欧元），但我想要我的PnL美元 .
我将尝试提供所有必要的信息，因为约书亚乌尔里希对可重复的例子严格，他是对的 .
我的函数导入csv文件和清理数据
getdata <- function(ticker){
d <- read.csv(ticker, header=TRUE, sep = ",")
d[,1] <- as.Date(as.character(d[,1]), tz ="GMT", format="%m/%d/%Y")
d <- as.xts(d[,-1], order.by =d[,1] )
colnames(d) <- c("Open","High","Low","Close")
return(d)
}
BRENT <- getdata("BRENT.csv")
EURUSD<- getdata("EURUSD.csv")
数据可在此处获得
https://gist.github.com/nbmacro
一旦我以正确的格式导入了我的BRENT.csv，我就设置了仪器
currency(c("USD","EUR",))
exchange_rate(c("EURUSD"),"USD")
future("BRENT",currency = "EUR",tick_size = 0.01,multiplier = 1000)
所以我导入了我的数据，设置了仪器，我可以运行通常的quantstrat代码 .
symbols <- c("BRENT")
Sys.setenv(TZ="GMT")
rm(list = ls(.blotter), envir = .blotter)
#Set up environment
if (!exists('.blotter')) .blotter <- new.env()
if(!exists('.strategy')) .strategy <- new.env()
if(!exists('.instrument')) .instrument <- new.env()
start.date <- min(index(symbols))+50 #1ere date du jeu de donnée
end.date <- Sys.Date()-5 #dernière date du jeu de donnée
initial.capital <- 0 #Capital de départ
MAcrossover <- strategy("MAcrossover")
portfolio.st <- account.st <- strat.st <- "MAcrossover"
initPortf(portfolio.st, #nom du book
symbols = symbols, #list des instruments
currency='USD')
initAcct(account.st, #nom du compte
portfolios = portfolio.st, #nom du portfeuille rattaché au compte
# initDate = init.date, #date de départ du compte
currency = "USD", #devise du compte
initEq = initial.capital) #capital de départ du compte
initOrders(portfolio.st,
symbols = symbols)
strategy("MAcrossover",store = TRUE)
#Parametres
ma1 <- 20
ma2 <- 120
maxpos <- 1
tradesize <- 1
#position limit
addPosLimit("MAcrossover", symbols, maxpos = maxpos, timestamp = start(BRENT)-1)
#preparation indicateurs
for(symbol in symbols){
x=get(symbol)
x$MA1 <- SMA(Cl(x),n=ma1)
x$MA2 <- SMA(Cl(x),n=ma2)
assign(symbol,x)
}
#Signal
add.signal("MAcrossover", #nom de la strategie
name="sigCrossover", #type de signal
arguments = list(columns =c("MA1","MA2"), #liste des colonnes pour déterminer le signal
relationship="gt"), #type de relation du signal (sup ou égal, sup, inférieur etc..)
label = "long") #label de la colonne du signal
add.signal("MAcrossover", #nom de la strategie
name="sigCrossover", #type de signal
arguments = list(columns =c("MA1","MA2"), #liste des colonnes pour déterminer le signal
relationship="lt"), #type de relation du signal (sup ou égal, sup, inférieur etc..)
label = "short") #label de la colonne du signal
add.signal("MAcrossover", #nom de la strategie
name="sigCrossover", #type de signal
arguments = list(columns =c("MA1","MA2"), #liste des colonnes pour déterminer le signal
relationship="lt"), #type de relation du signal (sup ou égal, sup, inférieur etc..)
label = "exitlong") #label de la colonne du signal
add.signal("MAcrossover", #nom de la strategie
name="sigCrossover", #type de signal
arguments = list(columns =c("MA1","MA2"), #liste des colonnes pour déterminer le signal
relationship="gt"), #type de relation du signal (sup ou égal, sup, inférieur etc..)
label = "exitshort") #label de la colonne du signal
#Rules
add.rule("MAcrossover", #nom de la strategie
name = "ruleSignal", #
arguments = list(sigcol ="long", #nom de la colonne à vérifier
sigval = TRUE, #Application de la règle si signal
orderqty=tradesize, #taille de l'ordre
osFUN = osMaxPos,
prefer = "Close",
replace = FALSE,
ordertype = "market", #type d'ordre
orderside ="long"), #sens
type = "enter", #ouverture ou fermeture de pose
label = "enterlongcrossover") #label si exécution
add.rule("MAcrossover", #nom de la strategie
name = "ruleSignal", #
arguments = list(sigcol ="short", #nom de la colonne à vérifier
sigval = TRUE, #Application de la règle si signal
orderqty="all", #taille de l'ordre
replace = FALSE,
ordertype = "market", #type d'ordre
orderside ="long"), #sens
type = "exit", #ouverture ou fermeture de pose
label = "exitlongcrossover") #label si exécution
add.rule("MAcrossover", #nom de la strategie
name = "ruleSignal", #
arguments = list(sigcol ="short", #nom de la colonne à vérifier
sigval = TRUE, #Application de la règle si signal
orderqty=-tradesize,#taille de l'ordre
replace = FALSE,
prefer = "Close",
osFUN = osMaxPos,
ordertype = "market", #type d'ordre
orderside ="short"), #sens
type = "enter", #ouverture ou fermeture de pose
label = "Entershort") #label si exécution
add.rule("MAcrossover", #nom de la strategie
name = "ruleSignal", #
arguments = list(sigcol ="long", #nom de la colonne à vérifier
sigval = TRUE, #Application de la règle si signal
orderqty="all", #taille de l'ordre
replace = FALSE,
ordertype = "market", #type d'ordre
orderside ="short"), #sens
type = "exit", #ouverture ou fermeture de pose
label = "exitshortcrossover") #label si exécution
out <- applyStrategy("MAcrossover", portfolios = portfolio.st)
updatePortf("MAcrossover")
updateAcct("MAcrossover")
updateEndEq("MAcrossover")
基本上，模型交易正确 . 作为一个例子来说明我的观点，让我们进行第一笔交易该模型在2002-03-06 22.72进行了很长时间 . 第二天的收盘价为23.3 . 所以欧元的Pnl应该是（23.3-22.72）* 1000（乘数）= 580€ . 在2002-03-07，欧元兑美元的收盘价为0.8822，因此美元的Pnl应为580 * 0.8822 = 511.67美元 .
有趣的是，当我用货币=欧元设定未来布伦特时
future("BRENT",currency = "EUR",tick_size = 0.01,multiplier = 1000)
我在2002-03-07的643.45得到了一个PnL
当我用货币=美元设置未来布伦特时
我在2002-03-07 at 580得到了一个PnL
这不符合逻辑 . 而隐含的EURUSD为（580/643）= 0.90，正确率为0.8822 .
所以我的问题是 - 我们可以处理多种货币吗？ - 如果是的话，我错在哪里？
非常感谢提前，
尼古拉斯 .