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

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

Author: lorenzo
Date: 2016-03-18 15:23:06 +0100 (Fri, 18 Mar 2016)
New Revision: 421

Modified:
   pkg/yuima/R/yuima.model.R
Log:
Fixed Bugs in rbind methods

Modified: pkg/yuima/R/yuima.model.R
===================================================================
--- pkg/yuima/R/yuima.model.R	2016-03-16 22:29:42 UTC (rev 420)
+++ pkg/yuima/R/yuima.model.R	2016-03-18 14:23:06 UTC (rev 421)
@@ -680,7 +680,7 @@
     j <- 1
     h <- 0
     cond.eqa <- equation.number[[j]]
-    cond.eqb <- 1
+    cond.eqb <- 0
     extrinf <- 1
     extrsup <- 1
     if(check.lev[j])
@@ -718,16 +718,16 @@
 #        FUN = extract.model, type = "measure")
 #     measure
     df <- NULL
-  if("df" %in% names(unlist(mycall)))
+  if("df" %in% names(mycall))
       df <- mycall$df
     measure.type <- NULL
-  if("measure.type" %in% names(unlist(mycall)))
+  if("measure.type" %in% names(mycall))
       measure.type <- mycall$measure.type
     intensity <-NULL
-    if("intensity" %in% names(unlist(mycall)))
+    if("intensity" %in% names(mycall))
       intensity <- mycall$intensity
     time.variable <- "t"
-    if("time.variable" %in% names(unlist(mycall)))
+    if("time.variable" %in% names(mycall))
       time.variable <- mycall$time.variable
   mod <- setMultiModel(drift=drift, diffusion = matr.diff,
     jump.coeff =  matr.jump, solve.variable = solve.variable,