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

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

Author: hinohide
Date: 2009-11-16 07:50:19 +0100 (Mon, 16 Nov 2009)
New Revision: 16

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/simulate.R
Log:
fixed minor bug

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2009-11-11 10:03:51 UTC (rev 15)
+++ pkg/yuima/DESCRIPTION	2009-11-16 06:50:19 UTC (rev 16)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package
-Version: 0.0.68
-Date: 2009-10-28
+Version: 0.0.69
+Date: 2009-11-16
 Depends: methods, zoo
 Author: Yuima project team.
 Maintainer: Who to complain to <yourfault at somewhere.net>

Modified: pkg/yuima/R/simulate.R
===================================================================
--- pkg/yuima/R/simulate.R	2009-11-11 10:03:51 UTC (rev 15)
+++ pkg/yuima/R/simulate.R	2009-11-16 06:50:19 UTC (rev 16)
@@ -352,7 +352,6 @@
       ##:: Jump terms
       code <- suppressWarnings(sub("^(.+?)\\(.+", "\\1", sdeModel at measure$df$expr, perl=TRUE))
       args <- unlist(strsplit(suppressWarnings(sub("^.+?\\((.+)\\)", "\\1", sdeModel at measure$df$expr, perl=TRUE)), ","))
-      print(args);readline()
       dZ <- switch(code,
                    rNIG=paste("rNIG(division, ", args[2], ", ", args[3], ", ", args[4], "*delta, ", args[5], "*delta)"),
                    rIG=paste("rIG(division,", args[2], "*delta, ", args[3], ")"),