[Pomp-commits] r770 - branches/mif2/R

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

Author: nxdao2000
Date: 2012-08-10 18:55:33 +0200 (Fri, 10 Aug 2012)
New Revision: 770

Modified:
   branches/mif2/R/pfilter.R
Log:
update to work with continue

Modified: branches/mif2/R/pfilter.R
===================================================================
--- branches/mif2/R/pfilter.R	2012-08-10 06:35:27 UTC (rev 769)
+++ branches/mif2/R/pfilter.R	2012-08-10 16:55:33 UTC (rev 770)
@@ -179,10 +179,11 @@
 	for (nt in seq_len(ntimes)) {
 		if (option=="mif2")
 		{	  
-			cool.sched <- try(mif.cooling2(cooling.fraction, nt+.ndone , cooling.m+.ndone, ntimes), silent = FALSE)
+			cool.sched <- try(mif.cooling2(cooling.fraction, nt , cooling.m+.ndone, ntimes), silent = FALSE)#nt+.ndone
 			if (inherits(cool.sched, "try-error")) 
 				stop("pfilter error: cooling schedule error", call. = FALSE)
 			sigma1=sigma*cool.sched$alpha
+			
 		}	  
 		else
 			sigma1=sigma