[Pomp-commits] r297 - pkg/R

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

Author: kingaa
Date: 2010-08-23 20:46:42 +0200 (Mon, 23 Aug 2010)
New Revision: 297

Modified:
   pkg/R/basic-probes.R
Log:
- another minor bug fix


Modified: pkg/R/basic-probes.R
===================================================================
--- pkg/R/basic-probes.R	2010-08-23 18:35:57 UTC (rev 296)
+++ pkg/R/basic-probes.R	2010-08-23 18:46:42 UTC (rev 297)
@@ -38,8 +38,9 @@
                        ) {
   args <- list(...)
   type <- match.arg(type)
+  mlag <- max(lag)
   function (y) {
-    zz <- do.call(acf,c(list(x=transform(y[var,]),lag.max=lag,plot=FALSE),args))
+    zz <- do.call(acf,c(list(x=transform(y[var,]),lag.max=mlag,plot=FALSE,type=type),args))
     if (type=="partial")
       val <- zz$acf[lag]
     else