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

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

Author: iacus
Date: 2014-04-22 16:57:19 +0200 (Tue, 22 Apr 2014)
New Revision: 301

Modified:
   pkg/yuima/R/yuima.R
Log:
added show method

Modified: pkg/yuima/R/yuima.R
===================================================================
--- pkg/yuima/R/yuima.R	2014-04-22 10:22:03 UTC (rev 300)
+++ pkg/yuima/R/yuima.R	2014-04-22 14:57:19 UTC (rev 301)
@@ -291,7 +291,11 @@
     if( has.drift | has.diff ) is.wienerdiff <- TRUE
     if( has.fbm  ) is.fracdiff <- TRUE
     if( has.levy ) is.jumpdiff <- TRUE
-    
+    if( try(eval(mod at diffusion[[1]])) == 0){
+     has.diff <- FALSE
+     is.wienerdiff <- FALSE
+     is.fracdiff <- FALSE
+    }
     if( is.wienerdiff | is.fracdiff | is.jumpdiff  ){
         if( is.wienerdiff )
         cat("\nDiffusion process")
@@ -306,7 +310,10 @@
         }
         
         cat(sprintf("\nNumber of equations: %d", mod at equation.number))
-        cat(sprintf("\nNumber of Wiener noises: %d", length(mod at diffusion)))
+        if(is.wienerdiff | is.fracdiff)
+         cat(sprintf("\nNumber of Wiener noises: %d", length(mod at diffusion)))
+        if(is.jumpdiff)
+         cat(sprintf("\nNumber of Levy noises: %d", 1))
     }
     
     if(length(object at data@original.data)>0){