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

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

Author: kyuta
Date: 2013-04-13 17:22:26 +0200 (Sat, 13 Apr 2013)
New Revision: 239

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/NEWS
   pkg/yuima/R/qmle.R
Log:
added "control" to the argument of optimHess in qmle.R 

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2013-04-13 12:25:57 UTC (rev 238)
+++ pkg/yuima/DESCRIPTION	2013-04-13 15:22:26 UTC (rev 239)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.206
-Date: 2013-04-13
+Version: 0.1.207
+Date: 2013-04-14
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm
 Author: YUIMA Project Team.

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2013-04-13 12:25:57 UTC (rev 238)
+++ pkg/yuima/NEWS	2013-04-13 15:22:26 UTC (rev 239)
@@ -8,3 +8,4 @@
 2013/02/11: modify cce.R
 2013/04/13: modify asymptotic_term_second.R, asymptotic_term_third.R, asymptotic_term_third_function.R, cce.R, llag.R
 2013/04/13: modify qmle.R
+2013/04/14: modify qmle.R

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2013-04-13 12:25:57 UTC (rev 238)
+++ pkg/yuima/R/qmle.R	2013-04-13 15:22:26 UTC (rev 239)
@@ -369,13 +369,13 @@
 #	 
 	 if(!HaveDriftHess & (length(drift.par)>0)){
 	  #hess2 <- .Internal(optimhess(coef[drift.par], fDrift, NULL, conDrift))
-     hess2 <- optimHess(coef[drift.par], fDrift, NULL, conDrift)
+     hess2 <- optimHess(coef[drift.par], fDrift, NULL, control=conDrift)
 	  HESS[drift.par,drift.par] <- hess2	 
 	 }
 
 	 if(!HaveDiffHess  & (length(diff.par)>0)){
 		 #hess1 <- .Internal(optimhess(coef[diff.par], fDiff, NULL, conDiff))
-	   hess1 <- optimHess(coef[diff.par], fDiff, NULL, conDiff)
+	   hess1 <- optimHess(coef[diff.par], fDiff, NULL, control=conDiff)
 		 HESS[diff.par,diff.par] <- hess1	 
 	 }
 	 	 
@@ -905,13 +905,13 @@
     #	 
     if(!HaveDriftHess & (length(drift.par)>0)){
         #hess2 <- .Internal(optimhess(coef[drift.par], fDrift, NULL, conDrift))
-        hess2 <- optimHess(coef[drift.par], fDrift, NULL, conDrift)
+        hess2 <- optimHess(coef[drift.par], fDrift, NULL, control=conDrift)
         HESS[drift.par,drift.par] <- hess2	 
     }
     
     if(!HaveDiffHess  & (length(diff.par)>0)){
         #hess1 <- .Internal(optimhess(coef[diff.par], fDiff, NULL, conDiff))
-        hess1 <- optimHess(coef[diff.par], fDiff, NULL, conDiff)
+        hess1 <- optimHess(coef[diff.par], fDiff, NULL, control=conDiff)
         HESS[diff.par,diff.par] <- hess1	 
     }