[Blotter-commits] r9 - pkg/R

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

Author: peter_carl
Date: 2008-12-16 04:07:29 +0100 (Tue, 16 Dec 2008)
New Revision: 9

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


Modified: pkg/R/initTxn.R
===================================================================
--- pkg/R/initTxn.R	2008-12-16 03:06:37 UTC (rev 8)
+++ pkg/R/initTxn.R	2008-12-16 03:07:29 UTC (rev 9)
@@ -18,7 +18,7 @@
     ## @todo: Add 'Txn.Type' column
     ## @todo: DIVIDEND creates a realized gain
     txn <- xts( as.matrix(t(c(0,0,0,0,0,initPosQty,0,0))), order.by=as.Date(initDate) )
-    colnames(txn) <- c('Txn.Qty', 'Txn.Price', 'Txn.Fees', 'Txn.Value', 'Avg.Txn.Cost', 'Pos.Qty', 'Pos.Avg.Cost', 'Realized.PL')
+    colnames(txn) <- c('Txn.Qty', 'Txn.Price', 'Txn.Fees', 'Txn.Value', 'Txn.Avg.Cost', 'Pos.Qty', 'Pos.Avg.Cost', 'Realized.PL')
     return(txn)
 }