[Pomp-commits] r562 - pkg/tests

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

Author: kingaa
Date: 2011-10-18 12:16:48 +0200 (Tue, 18 Oct 2011)
New Revision: 562

Modified:
   pkg/tests/ou2-probe.R
Log:
- avoid deprecated mean(<data-frame>)


Modified: pkg/tests/ou2-probe.R
===================================================================
--- pkg/tests/ou2-probe.R	2011-10-18 10:05:45 UTC (rev 561)
+++ pkg/tests/ou2-probe.R	2011-10-18 10:16:48 UTC (rev 562)
@@ -76,7 +76,8 @@
             seed=1066L
             )
 x <- as.data.frame(po)
-x <- sweep(x,2,mean(x))
+mx <- sapply(x,mean)
+x <- sweep(x,2,mx)
 y1 <- head(x$y1,-1)
 z1 <- tail(x$y1,-1)
 y2 <- head(x$y2,-1)