[Pomp-commits] r119 - pkg/R

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

Author: kingaa
Date: 2009-05-01 13:29:30 +0200 (Fri, 01 May 2009)
New Revision: 119

Modified:
   pkg/R/init.state-pomp.R
Log:
when params is missing, use params <- coef(object)

Modified: pkg/R/init.state-pomp.R
===================================================================
--- pkg/R/init.state-pomp.R	2009-04-29 22:35:40 UTC (rev 118)
+++ pkg/R/init.state-pomp.R	2009-05-01 11:29:30 UTC (rev 119)
@@ -3,8 +3,8 @@
           'init.state',
           'pomp',
           function (object, params, t0, ...) { # the package algorithms will only use these arguments
-            if (missing(t0))
-              t0 <- object at t0
+            if (missing(t0)) t0 <- object at t0
+            if (missing(params)) params <- coef(object)
             x <- try(
                      .Call(do_init_state,object,as.matrix(params),t0),
                      silent=FALSE