[Pomp-commits] r27 - pkg/R

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

Author: kingaa
Date: 2008-07-29 18:20:28 +0200 (Tue, 29 Jul 2008)
New Revision: 27

Modified:
   pkg/R/mif.R
Log:
bug fix in convergence record storage

Modified: pkg/R/mif.R
===================================================================
--- pkg/R/mif.R	2008-07-29 16:04:11 UTC (rev 26)
+++ pkg/R/mif.R	2008-07-29 16:20:28 UTC (rev 27)
@@ -243,7 +243,7 @@
           function (object, Nmif, ...) {
             ndone <- object at Nmif
             obj <- mif(object,Nmif=Nmif,.ndone=ndone,...)
-            object at conv.rec[ndone+1,'loglik'] <- obj at conv.rec[1,'loglik']
+            object at conv.rec[ndone+1,c('loglik','nfail')] <- obj at conv.rec[1,c('loglik','nfail')]
             obj at conv.rec <- rbind(
                                   object at conv.rec,
                                   obj at conv.rec[-1,colnames(object at conv.rec)]