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

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

Author: gsee
Date: 2013-03-09 18:48:46 +0100 (Sat, 09 Mar 2013)
New Revision: 1407

Modified:
   pkg/blotter/R/calcPortfWgt.R
Log:
 partial matching fix for R CMD check

Modified: pkg/blotter/R/calcPortfWgt.R
===================================================================
--- pkg/blotter/R/calcPortfWgt.R	2013-03-03 16:14:56 UTC (rev 1406)
+++ pkg/blotter/R/calcPortfWgt.R	2013-03-09 17:48:46 UTC (rev 1407)
@@ -34,7 +34,7 @@
     if(is.null(Symbols)) Symbols<-names(Portfolio$symbols)
     
     pos.value = .getBySymbol(Portfolio = Portfolio, Dates = Dates, Attribute = "Pos.Value", Symbols = Symbols)    
-    portf.value = .getByPortf(Account=getAccount(Account),Attribute = denominator[1], Date = Dates)
+    portf.value = .getByPortf(Account=getAccount(Account),Attribute = denominator[1], Dates = Dates)
     weights = zerofill(as.data.frame(lapply(pos.value, FUN = function(x,y){return(x/y)}, y=portf.value))) 
 
     return(weights)