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

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

Author: iacus
Date: 2010-07-14 14:38:29 +0200 (Wed, 14 Jul 2010)
New Revision: 103

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/qmle.R
Log:
fixed small bug

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2010-07-13 19:54:20 UTC (rev 102)
+++ pkg/yuima/DESCRIPTION	2010-07-14 12:38:29 UTC (rev 103)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.00
-Date: 2010-07-13
+Version: 0.1.01
+Date: 2010-07-14
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm
 Author: YUIMA Project Team.

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2010-07-13 19:54:20 UTC (rev 102)
+++ pkg/yuima/R/qmle.R	2010-07-14 12:38:29 UTC (rev 103)
@@ -25,8 +25,11 @@
 	
 	for(d in 1:d.size){
 		assign(modelstate[d], env$X[,d])
+	}
+	for(d in 1:d.size){
 		drift[,d] <- eval(DRIFT[d])
 	}
+
 	return(drift)  
 }
 
@@ -45,6 +48,8 @@
 	for(r in 1:r.size){
 		for(d in 1:d.size){
 			assign(modelstate[d], env$X[,d])
+		}
+		for(d in 1:d.size){
 			diff[d, r, ] <- eval(DIFFUSION[[d]][r])
 		}
 	}