[Blotter-commits] r622 - pkg/blotter/R

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

Author: gsee
Date: 2011-06-10 03:05:13 +0200 (Fri, 10 Jun 2011)
New Revision: 622

Modified:
   pkg/blotter/R/addTxn.R
Log:
TxnFees to txnfees

Modified: pkg/blotter/R/addTxn.R
===================================================================
--- pkg/blotter/R/addTxn.R	2011-06-09 23:18:04 UTC (rev 621)
+++ pkg/blotter/R/addTxn.R	2011-06-10 01:05:13 UTC (rev 622)
@@ -56,7 +56,7 @@
     # Compute transaction fees if a function was supplied
     if (is.function(TxnFees)) txnfees <- TxnFees(TxnQty, TxnPrice) else txnfees<- as.numeric(TxnFees)
     if(is.null(txnfees) | is.na(txnfees)) txnfees = 0
-    if(TxnFees>0) warning('Positive Transaction Fees should only be used in the case of broker/exchange rebates for TxnFees ',TxnFees,'. See Documentation.')
+    if(txnfees>0) warning('Positive Transaction Fees should only be used in the case of broker/exchange rebates for TxnFees ',TxnFees,'. See Documentation.')
     
     # Calculate the value and average cost of the transaction
     TxnValue = .calcTxnValue(TxnQty, TxnPrice, 0, ConMult) # Gross of Fees