[R-gregmisc-users] SF.net SVN: r-gregmisc:[1970] trunk/gdata

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

Revision: 1970
          http://sourceforge.net/p/r-gregmisc/code/1970
Author:   warnes
Date:     2015-04-25 16:49:59 +0000 (Sat, 25 Apr 2015)
Log Message:
-----------
Remove aggregate.table() entirely

Modified Paths:
--------------
    trunk/gdata/NAMESPACE

Removed Paths:
-------------
    trunk/gdata/R/aggregate.table.R

Modified: trunk/gdata/NAMESPACE
===================================================================
--- trunk/gdata/NAMESPACE	2015-04-25 16:46:12 UTC (rev 1969)
+++ trunk/gdata/NAMESPACE	2015-04-25 16:49:59 UTC (rev 1970)
@@ -3,7 +3,6 @@
        .onAttach,
        ans,
        Args,
-       aggregate.table,
        bindData,
        case,
        cbindX,

Deleted: trunk/gdata/R/aggregate.table.R
===================================================================
--- trunk/gdata/R/aggregate.table.R	2015-04-25 16:46:12 UTC (rev 1969)
+++ trunk/gdata/R/aggregate.table.R	2015-04-25 16:49:59 UTC (rev 1970)
@@ -1,39 +0,0 @@
-# $Id$
-
-aggregate.table <- function(x, by1, by2, FUN=mean, ...)
-  {
-      .Defunct(
-          new=paste(
-              "tapply(X=",
-              deparse(substitute(x)),
-              ", INDEX=list(",
-              deparse(substitute(by1)),
-              ", ",
-              deparse(substitute(by2)),
-              "), FUN=",
-              deparse(substitute(FUN)),
-              if(length(list(...))>0)
-              {
-                  l <- list(...)
-                  paste(", ",
-                        paste(names(l),"=",
-                              deparse(substitute(...)),
-                              sep="",
-                              collapse=", ")
-                        )
-              },
-              ")", sep=""),
-          package="gdata"
-          )
-  }
-
-## aggregate.table <- function(x, by1, by2, FUN=mean, ... )
-## {
-##
-##     tab <- matrix( nrow=nlevels(by1), ncol=nlevels(by2) )
-##     dimnames(tab) <- list(levels(by1),levels(by2))
-##
-##     for(i in 1:nrow(ag))
-##       tab[ as.character(ag[i,1]), as.character(ag[i,2]) ] <- ag[i,3]
-##     tab
-##   }

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