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

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

Author: lorenzo
Date: 2014-11-26 12:06:19 +0100 (Wed, 26 Nov 2014)
New Revision: 356

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/qmle.R
Log:


Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2014-11-18 12:36:18 UTC (rev 355)
+++ pkg/yuima/DESCRIPTION	2014-11-26 11:06:19 UTC (rev 356)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package for SDEs
-Version: 1.0.52
-Date: 2014-11-18
+Version: 1.0.53
+Date: 2014-11-26
 Depends: methods, zoo, stats4, utils, expm, cubature, mvtnorm
 Author: YUIMA Project Team
 Maintainer: Stefano M. Iacus <stefano.iacus at unimi.it>

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2014-11-18 12:36:18 UTC (rev 355)
+++ pkg/yuima/R/qmle.R	2014-11-26 11:06:19 UTC (rev 356)
@@ -1121,6 +1121,9 @@
         }
         
         if(aggregation==TRUE){
+          if(floor(yuima at sampling@n/yuima at sampling@Termina)!=yuima at sampling@n/yuima at sampling@Termina){
+            yuima.warn("the n/Terminal in sampling information is not an integer. Aggregation=FALSE is recommended")
+          }
           inc.levy1<-diff(cumsum(inc.levy)[seq(from=1,
                                                to=yuima at sampling@n[1],
                                                by=(yuima at sampling@n/yuima at sampling@Terminal)[1]
@@ -1222,6 +1225,9 @@
           return(carma_final_res)
         }
         if(aggregation==TRUE){
+          if(floor(yuima at sampling@n/yuima at sampling@Termina)!=yuima at sampling@n/yuima at sampling@Termina){
+            yuima.warn("the n/Terminal in sampling information is not an integer. Aggregation=FALSE is recommended")
+          }
          inc.levy1<-diff(cumsum(inc.levy)[seq(from=1,
                                               to=yuima at sampling@n[1],
                                               by=(yuima at sampling@n/yuima at sampling@Terminal)[1]