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

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

Author: iacus
Date: 2010-07-14 15:56:01 +0200 (Wed, 14 Jul 2010)
New Revision: 104

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/qmle.R
Log:
small fix to dffusione.term

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2010-07-14 12:38:29 UTC (rev 103)
+++ pkg/yuima/DESCRIPTION	2010-07-14 13:56:01 UTC (rev 104)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.01
+Version: 0.1.02
 Date: 2010-07-14
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2010-07-14 12:38:29 UTC (rev 103)
+++ pkg/yuima/R/qmle.R	2010-07-14 13:56:01 UTC (rev 104)
@@ -45,11 +45,12 @@
 		assign(names(theta)[i],theta[[i]])
 	}
 
+	for(d in 1:d.size){
+		assign(modelstate[d], env$X[,d])
+	}
+
 	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])
 		}
 	}