[Rcpp-commits] r3514 - in pkg/RcppSMC: R src

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

Author: edd
Date: 2012-03-17 03:27:01 +0100 (Sat, 17 Mar 2012)
New Revision: 3514

Modified:
   pkg/RcppSMC/R/pfEx.R
   pkg/RcppSMC/src/pf.cpp
Log:
fix two typos/thinkos from last minute change


Modified: pkg/RcppSMC/R/pfEx.R
===================================================================
--- pkg/RcppSMC/R/pfEx.R	2012-03-17 02:23:32 UTC (rev 3513)
+++ pkg/RcppSMC/R/pfEx.R	2012-03-17 02:27:01 UTC (rev 3514)
@@ -44,7 +44,7 @@
 }
 
 pfExOnlinePlot <- function(xm, ym) {
-    plot(xm, ym, ylim=c(-7,0), xlim=c(2,14))
+    plot(xm, ym, xlim=c(-7,0), ylim=c(2,14))
     Sys.sleep(0.05)
 }
 

Modified: pkg/RcppSMC/src/pf.cpp
===================================================================
--- pkg/RcppSMC/src/pf.cpp	2012-03-17 02:23:32 UTC (rev 3513)
+++ pkg/RcppSMC/src/pf.cpp	2012-03-17 02:27:01 UTC (rev 3514)
@@ -90,7 +90,7 @@
             Ym(n) = Sampler.Integrate(integrand_mean_y, NULL);
             Yv(n) = Sampler.Integrate(integrand_var_y, (void*)&Ym(n));
 
-            if (useF) f(Xm, Xv, Ym, Yv);
+            if (useF) f(Xm, Ym);
         }
 
         return Rcpp::DataFrame::create(Rcpp::Named("Xm") = Xm,