Blotter intraday已实现PL

Question

这是一个关于blotter R包的amzn_test演示中事务的已实现PL的问题。这些交易是由7笔交易组成的序列，这些交易在盘中开仓和平仓。对getTxns('amzn_port', 'amzn')的调用返回

                    Txn.Qty Txn.Price Txn.Fees Txn.Value Txn.Avg.Cost Net.Txn.Realized.PL
2010-01-14 00:00:00       0      0.00        0         0         0.00                   0
2010-01-14 10:18:50    -400    127.49        0    -50996       127.49               50996
2010-01-14 10:18:53     400    127.49        0     50996       127.49                   0
...

为什么期初交易的Net.Txn.Realized.PL不为零，关闭的交易为零？对于每日交易，已实现的损益在交易结束当天将为非零。

我在64位Windows上运行blotter 0.9.1666。

谢谢你的耐心。

Answer 1

这看起来像是addTxns中的一个错误，因为如果您为amzn.trades中的每一行调用addTxn，则最终实现的P&L看起来是合理的。

require(blotter)
# load the example data
data("amzn")
currency("USD")
stock("amzn",currency="USD",multiplier=1)
# Initialize the Portfolio
initPortf("amzn_port",symbols="amzn",initDate="2010-01-14")
initAcct("amzn_acct",portfolios="amzn_port",initDate="2010-01-14", initEq=10000)
# Add the transactions to the portfolio
for (i in 1:nrow(amzn.trades)) {
  x <- amzn.trades[i,]
  addTxn("amzn_port", "amzn", index(x), coredata(x$TxnQty), coredata(x$TxnPrice))
}
# update the portfolio`
updatePortf("amzn_port",Dates="2010-01-14")
getTxns("amzn_port", "amzn")

一旦我发现/修复了这个bug，我就会调查并报告。

现在，这个问题在revision 1693中得到了修复。下面是补丁：

--- pkg/blotter/R/addTxn.R  2015/04/15 02:33:20 1685
+++ pkg/blotter/R/addTxn.R  2015/08/09 16:29:59 1693
@@ -246,9 +246,11 @@
     NewTxns$Pos.Qty <- cumsum(initPosQty + NewTxns$Txn.Qty)
     # only pass non-zero initial position qty and average cost
     NewTxns$Pos.Avg.Cost <- .calcPosAvgCost_C(initPosQty[1], initPosAvgCost[1], NewTxns$Txn.Value, NewTxns$Pos.Qty, ConMult)
-    # need lagged position average cost
+    # need lagged position average cost and quantity
     lagPosAvgCost <- c(initPosAvgCost[1], NewTxns$Pos.Avg.Cost[-nrow(NewTxns)])
+    lagPosQty <- c(initPosQty[1], NewTxns$Pos.Qty[-nrow(NewTxns)])
     NewTxns$Gross.Txn.Realized.PL <- NewTxns$Txn.Qty * ConMult * (lagPosAvgCost - NewTxns$Txn.Avg.Cost)
+    NewTxns$Gross.Txn.Realized.PL[abs(lagPosQty) < abs(NewTxns$Pos.Qty) | lagPosQty == 0] <- 0
     NewTxns$Net.Txn.Realized.PL <- NewTxns$Gross.Txn.Realized.PL - NewTxns$Txn.Fees
     NewTxns$Con.Mult <- ConMult