[R-gregmisc-users] SF.net SVN: r-gregmisc:[1602] trunk/gdata/man/interleave.Rd

[<wa...@us...>]

Revision: 1602
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1602&view=rev
Author:   warnes
Date:     2012-09-11 20:37:52 +0000 (Tue, 11 Sep 2012)
Log Message:
-----------
Replace call to aggregate.table() with equivalent tapply() call since aggregate.table() is being depreciated.

Modified Paths:
--------------
    trunk/gdata/man/interleave.Rd

Modified: trunk/gdata/man/interleave.Rd
===================================================================
--- trunk/gdata/man/interleave.Rd	2012-08-22 16:47:28 UTC (rev 1601)
+++ trunk/gdata/man/interleave.Rd	2012-09-11 20:37:52 UTC (rev 1602)
@@ -88,9 +88,9 @@
 
 stderr <- function(x) sqrt( var(x,na.rm=TRUE) / nobs(x) )
 
-means   <- aggregate.table( dat, g1, g2, mean )
-stderrs <- aggregate.table( dat, g1, g2, stderr )
-ns      <- aggregate.table( dat, g1, g2, nobs )
+means   <- tapply(dat, list(g1, g2), mean )
+stderrs <- tapply(dat, list(g1, g2), stderr )
+ns      <- tapply(dat, list(g1, g2), nobs )
 blanks <- matrix( " ", nrow=5, ncol=3)
 
 tab <- interleave( "Mean"=round(means,2),

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.