[Pomp-commits] r26 - pkg/R

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

Author: kingaa
Date: 2008-07-29 18:04:11 +0200 (Tue, 29 Jul 2008)
New Revision: 26

Modified:
   pkg/R/mif.R
Log:
cosmetic

Modified: pkg/R/mif.R
===================================================================
--- pkg/R/mif.R	2008-07-26 14:38:07 UTC (rev 25)
+++ pkg/R/mif.R	2008-07-29 16:04:11 UTC (rev 26)
@@ -153,7 +153,8 @@
             sigma[rw.names] <- rw.sd
             if (!all(c('Np','cooling.factor','ic.lag','var.factor')%in%names(alg.pars)))
               stop("mif error: ",sQuote("alg.pars")," must be a named list with elements ",sQuote("Np"),",",sQuote("cooling.factor"),",",sQuote("ic.lag"),",and ",sQuote("var.factor"),call.=FALSE)
-            conv.rec <- matrix(NA,
+            conv.rec <- matrix(
+                               data=NA,
                                nrow=Nmif+1,
                                ncol=length(theta)+2,
                                dimnames=list(