[Yuima-commits] r411 - pkg/yuima/R

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

Author: lorenzo
Date: 2016-03-09 21:28:37 +0100 (Wed, 09 Mar 2016)
New Revision: 411

Modified:
   pkg/yuima/R/qmle.R
Log:
Fixed bug in qmle

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2016-03-06 16:19:31 UTC (rev 410)
+++ pkg/yuima/R/qmle.R	2016-03-09 20:28:37 UTC (rev 411)
@@ -620,6 +620,8 @@
 			mydots$hessian <- FALSE
 			mydots$upper <- as.numeric(unlist( upper[ nm[idx.diff] ]))
 			mydots$lower <- as.numeric(unlist( lower[ nm[idx.diff] ]))
+			mydots$joint <- NULL # LM 08/03/16
+			mydots$aggregation <- NULL # LM 08/03/16
             mydots$threshold <- NULL #SMI 2/9/14
 
            if((length(mydots$par)>1) | any(is.infinite(c(mydots$upper,mydots$lower)))){
@@ -676,11 +678,12 @@
 			mydots$hessian <- FALSE
 			mydots$upper <- unlist( upper[ nm[idx.drift] ])
 			mydots$lower <- unlist( lower[ nm[idx.drift] ])
+			mydots$joint <- NULL # LM 08/03/16
+			mydots$aggregation <- NULL # LM 08/03/16# LM 08/03/16
 
 
 
 
-
 			if(length(mydots$par)>1 | any(is.infinite(c(mydots$upper,mydots$lower)))){
 			  if(is.CARMA(yuima)){
 			    if(NoNeg.Noise==TRUE){