[Pomp-commits] r978 - in pkg/pomp: . R

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

Author: kingaa
Date: 2014-06-23 16:12:35 +0200 (Mon, 23 Jun 2014)
New Revision: 978

Modified:
   pkg/pomp/DESCRIPTION
   pkg/pomp/R/pmcmc.R
Log:
bump version number

Modified: pkg/pomp/DESCRIPTION
===================================================================
--- pkg/pomp/DESCRIPTION	2014-06-17 21:36:49 UTC (rev 977)
+++ pkg/pomp/DESCRIPTION	2014-06-23 14:12:35 UTC (rev 978)
@@ -1,8 +1,8 @@
 Package: pomp
 Type: Package
 Title: Statistical inference for partially observed Markov processes
-Version: 0.51-3
-Date: 2014-06-16
+Version: 0.51-4
+Date: 2014-06-23
 Authors at R: c(person(given=c("Aaron","A."),family="King",
 		role=c("aut","cre"),email="kingaa at umich.edu"),
 	  person(given=c("Edward","L."),family="Ionides",role=c("aut")),

Modified: pkg/pomp/R/pmcmc.R
===================================================================
--- pkg/pomp/R/pmcmc.R	2014-06-17 21:36:49 UTC (rev 977)
+++ pkg/pomp/R/pmcmc.R	2014-06-23 14:12:35 UTC (rev 978)
@@ -172,7 +172,7 @@
   for (n in seq_len(Nmcmc)) { # main loop
 
     theta.prop <- theta
-    theta.prop[pars] <- rnorm(n=length(pars),mean=theta.prop[pars],sd=rw.sd)
+    theta.prop[pars] <- rnorm(n=length(pars),mean=theta[pars],sd=rw.sd)
 
     ## run the particle filter on the proposed new parameter values
     pfp.prop <- try(