[Blotter-commits] r679 - pkg/quantstrat/R

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

Author: braverock
Date: 2011-07-11 21:46:09 +0200 (Mon, 11 Jul 2011)
New Revision: 679

Modified:
   pkg/quantstrat/R/parameters.R
Log:
- fix cut and paste errors in applying parameter arguments to each strategy object copy

Modified: pkg/quantstrat/R/parameters.R
===================================================================
--- pkg/quantstrat/R/parameters.R	2011-07-11 19:21:28 UTC (rev 678)
+++ pkg/quantstrat/R/parameters.R	2011-07-11 19:46:09 UTC (rev 679)
@@ -388,7 +388,7 @@
 						pnamepos<-pmatch(names(targ1),names(tmp_arg),nomatch=0L)
 						if( any(pnamepos>0)){
 							#just change the argument value itself will do ?or still need add.indicator??
-							tmp_strategy$signal[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
+							tmp_strategy$indicators[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
 						}
 						else{
 							tmp_strategy$indicators[[tmp_index]]$arguments<-append(targ1,tmp_arg)
@@ -423,7 +423,7 @@
 						pnamepos<-pmatch(names(targ1),names(tmp_arg),nomatch=0L)
 						if( any(pnamepos>0)){
 							#just change the argument value itself will do ?or still need add.indicator??
-							tmp_strategy$signal[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
+							tmp_strategy$rules$order[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
 						}
 						else{
 							tmp_strategy$rules$order[[tmp_index]]$arguments<-append(targ1,tmp_arg)
@@ -436,7 +436,7 @@
 						pnamepos<-pmatch(names(targ1),names(tmp_arg),nomatch=0L)
 						if( any(pnamepos>0)){
 							#just change the argument value itself will do ?or still need add.indicator??
-							tmp_strategy$signal[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
+							tmp_strategy$rules$enter[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
 						}
 						else{
 							tmp_strategy$rules$enter[[tmp_index]]$arguments<-append(targ1,tmp_arg)
@@ -449,7 +449,7 @@
 						pnamepos<-pmatch(names(targ1),names(tmp_arg),nomatch=0L)
 						if( any(pnamepos>0)){
 							#just change the argument value itself will do ?or still need add.indicator??
-							tmp_strategy$signal[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
+							tmp_strategy$rules$exit[[tmp_index]]$arguments[which(pnamepos>0)]<-tmp_arg[1]
 						}
 						else{
 							tmp_strategy$rules$exit[[tmp_index]]$arguments<-append(targ1,tmp_arg)