[Yuima-commits] r72 - in pkg/yuima: . R

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

Author: hinohide
Date: 2010-05-24 15:21:08 +0200 (Mon, 24 May 2010)
New Revision: 72

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/simulate.R
Log:
bug on simulate is fixed

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2010-05-20 05:00:32 UTC (rev 71)
+++ pkg/yuima/DESCRIPTION	2010-05-24 13:21:08 UTC (rev 72)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package
-Version: 0.0.84
-Date: 2010-05-04
+Version: 0.0.85
+Date: 2010-05-24
 Depends: methods, zoo, adapt, stats4
 Author: YUIMA Project Team.
 Maintainer: Stefano M. Iacus <stefano.iacus at R-project.org>

Modified: pkg/yuima/R/simulate.R
===================================================================
--- pkg/yuima/R/simulate.R	2010-05-20 05:00:32 UTC (rev 71)
+++ pkg/yuima/R/simulate.R	2010-05-24 13:21:08 UTC (rev 72)
@@ -112,15 +112,21 @@
      true.parameter[[i]] <- 0
 	names(true.parameter) <-   sdeModel at parameter@all
   }
-    
+  
   yuimaEnv <- new.env()
-				
+
   if(par.len>0){
 	for(i in 1:par.len){
 	 pars <- sdeModel at parameter@all[i]
-	 assign(sdeModel at parameter@all[i], true.parameter[[i]], yuimaEnv)
+
+     for(j in 1:length(true.parameter)){
+       if( is.na(match(pars, names(true.parameter)[j]))!=TRUE){
+         assign(sdeModel at parameter@all[i], true.parameter[[j]],yuimaEnv)
+       }
+     }
+	 #assign(sdeModel at parameter@all[i], true.parameter[[i]], yuimaEnv)
 	}
-  }
+   }
 
 				
   if(space.discretized){