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

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

Author: iacus
Date: 2014-04-23 04:38:41 +0200 (Wed, 23 Apr 2014)
New Revision: 306

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

Modified: pkg/yuima/R/yuima.R
===================================================================
--- pkg/yuima/R/yuima.R	2014-04-23 02:29:59 UTC (rev 305)
+++ pkg/yuima/R/yuima.R	2014-04-23 02:38:41 UTC (rev 306)
@@ -294,10 +294,13 @@
     if( has.fbm  ) is.fracdiff <- TRUE
     if( has.levy ) is.jumpdiff <- TRUE
 
-    if( as.character(mod at diffusion[[1]]) == "(0)" ){
-     has.diff <- FALSE
-     is.wienerdiff <- FALSE
-     is.fracdiff <- FALSE
+    ldif <- length(mod at diffusion[[1]])
+    if(ldif==1){
+     if( as.character(mod at diffusion[[1]]) == "(0)" ){
+      has.diff <- FALSE
+      is.wienerdiff <- FALSE
+      is.fracdiff <- FALSE
+     }
     }
     if( class(mod) == "yuima.carma")
      is.carma <- TRUE