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

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

Author: lorenzo
Date: 2016-10-25 19:04:49 +0200 (Tue, 25 Oct 2016)
New Revision: 488

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


Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2016-10-25 15:20:09 UTC (rev 487)
+++ pkg/yuima/DESCRIPTION	2016-10-25 17:04:49 UTC (rev 488)
@@ -1,14 +1,14 @@
-Package: yuima
-Type: Package
-Title: The YUIMA Project Package for SDEs
-Version: 1.2.3
-Depends: R(>= 2.10.0), methods, zoo, stats4, utils, expm, cubature, mvtnorm
-Imports: Rcpp (>= 0.12.1)
-Author: YUIMA Project Team
-Maintainer: Stefano M. Iacus <stefano.iacus at unimi.it>
-Description: Simulation and Inference for Stochastic Differential Equations.
-License: GPL-2
-URL: http://R-Forge.R-project.org/projects/yuima/
-LinkingTo: Rcpp
-
-
+Package: yuima
+Type: Package
+Title: The YUIMA Project Package for SDEs
+Version: 1.2.4
+Depends: R(>= 2.10.0), methods, zoo, stats4, utils, expm, cubature, mvtnorm
+Imports: Rcpp (>= 0.12.1)
+Author: YUIMA Project Team
+Maintainer: Stefano M. Iacus <stefano.iacus at unimi.it>
+Description: Simulation and Inference for Stochastic Differential Equations.
+License: GPL-2
+URL: http://R-Forge.R-project.org/projects/yuima/
+LinkingTo: Rcpp
+
+

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2016-10-25 15:20:09 UTC (rev 487)
+++ pkg/yuima/R/qmle.R	2016-10-25 17:04:49 UTC (rev 488)
@@ -2089,7 +2089,7 @@
   }
   Vdiag <- -solve(B)[,p]*0.5*sigma^2
   #V <- diag(Vdiag)
-  if(is(Vdiag,"matrix")){
+  if(length(Vdiag)>1){
     V <- diag(Vdiag)
   }else{V <- as.matrix(Vdiag)}
   # we insert the values outside the diagonal