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.
|
