[Pomp-commits] r436 - pkg/R

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

Author: kingaa
Date: 2011-02-22 13:07:25 +0100 (Tue, 22 Feb 2011)
New Revision: 436

Modified:
   pkg/R/pomp.R
Log:
- do a check in 'pomp' to make sure tcovar embraces times; warn else


Modified: pkg/R/pomp.R
===================================================================
--- pkg/R/pomp.R	2011-02-19 16:26:32 UTC (rev 435)
+++ pkg/R/pomp.R	2011-02-22 12:07:25 UTC (rev 436)
@@ -218,6 +218,12 @@
       warning("a covariate table has been given, yet the ",sQuote("dmeasure")," function does not have ",sQuote("covars")," as a formal argument")
   }
 
+  if ((length(tcovar)>0)&&((min(tcovar)>t0)||(max(tcovar)<max(times)))) 
+    warning(
+            "the supplied covariate covariate times ",sQuote("tcovar"),
+            " do not embrace the data times: covariates may be extrapolated"
+            )
+
   new(
       'pomp',
       rprocess = rprocess,