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

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

Author: iacus
Date: 2014-04-23 04:43:23 +0200 (Wed, 23 Apr 2014)
New Revision: 307

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/yuima.R
Log:
updated show

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2014-04-23 02:38:41 UTC (rev 306)
+++ pkg/yuima/DESCRIPTION	2014-04-23 02:43:23 UTC (rev 307)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package for SDEs
-Version: 1.0.12
+Version: 1.0.13
 Date: 2014-04-23
 Depends: methods, zoo, stats4, utils, expm
 Suggests: cubature, mvtnorm

Modified: pkg/yuima/R/yuima.R
===================================================================
--- pkg/yuima/R/yuima.R	2014-04-23 02:38:41 UTC (rev 306)
+++ pkg/yuima/R/yuima.R	2014-04-23 02:43:23 UTC (rev 307)
@@ -293,8 +293,9 @@
     if( has.drift | has.diff ) is.wienerdiff <- TRUE
     if( has.fbm  ) is.fracdiff <- TRUE
     if( has.levy ) is.jumpdiff <- TRUE
-
-    ldif <- length(mod at diffusion[[1]])
+    ldif <- 0
+    if(length(mod at diffusion)>0)
+     ldif <- length(mod at diffusion[[1]])
     if(ldif==1){
      if( as.character(mod at diffusion[[1]]) == "(0)" ){
       has.diff <- FALSE