[Blotter-commits] r10 - pkg/R

[noreply at r-forge.r-project.org]

Author: peter_carl
Date: 2008-12-16 04:10:57 +0100 (Tue, 16 Dec 2008)
New Revision: 10

Modified:
   pkg/R/addTxn.R
Log:
- Fixed Txn.Avg.Cost column name


Modified: pkg/R/addTxn.R
===================================================================
--- pkg/R/addTxn.R	2008-12-16 03:07:29 UTC (rev 9)
+++ pkg/R/addTxn.R	2008-12-16 03:10:57 UTC (rev 10)
@@ -38,7 +38,7 @@
 
     # Store the transaction and calculations
     NewTxn = xts(t(c(TxnQty, TxnPrice, TxnFees, TxnValue, TxnAvgCost, PosQty, PosAvgCost, RealizedPL)), order.by=as.Date(TxnDate))
-    colnames(NewTxn) = c('Txn.Qty', 'Txn.Price', 'Txn.Fees', 'Txn.Value', 'Avg.Txn.Cost', 'Pos.Qty', 'Pos.Avg.Cost', 'Realized.PL')
+    colnames(NewTxn) = c('Txn.Qty', 'Txn.Price', 'Txn.Fees', 'Txn.Value', 'Txn.Avg.Cost', 'Pos.Qty', 'Pos.Avg.Cost', 'Realized.PL')
     Portfolio[[Symbol]]$txn <- rbind(Portfolio[[Symbol]]$txn, NewTxn) 
 
     if(verbose)