[Pomp-commits] r428 - pkg/R

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

Author: kingaa
Date: 2010-11-24 21:21:19 +0100 (Wed, 24 Nov 2010)
New Revision: 428

Modified:
   pkg/R/pomp.R
Log:
- set storage.mode of 'covar' and 'tcovar' to 'double'


Modified: pkg/R/pomp.R
===================================================================
--- pkg/R/pomp.R	2010-11-24 17:35:11 UTC (rev 427)
+++ pkg/R/pomp.R	2010-11-24 20:21:19 UTC (rev 428)
@@ -188,6 +188,9 @@
     covar <- as.matrix(covar)
   }
   
+  storage.mode(tcovar) <- "double"
+  storage.mode(covar) <- "double"
+
   if (length(tcovar)!=nrow(covar)) {
     stop("pomp error: the length of ",sQuote("tcovar")," should match the number of rows of ",sQuote("covar"))
   } else if (!all(covarnames%in%colnames(covar))) {