The R Project SVN R

Rev

Rev 59039 | Rev 77208 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61150
Line 57... Line 57...
57 
  \code{\link{tapply}}, \code{\link{aggregate}}, \code{\link{rowSums}}
 57 
  \code{\link{tapply}}, \code{\link{aggregate}}, \code{\link{rowSums}}
58 
}
 58 
}
59 
\examples{
 59 
\examples{
60 
require(stats)
 60 
require(stats)
61 
 
 61 
 
62 
x <- matrix(runif(100), ncol=5)
 62 
x <- matrix(runif(100), ncol = 5)
63 
group <- sample(1:8, 20, TRUE)
 63 
group <- sample(1:8, 20, TRUE)
64 
(xsum <- rowsum(x, group))
 64 
(xsum <- rowsum(x, group))
65 
## Slower versions
 65 
## Slower versions
66 
tapply(x, list(group[row(x)], col(x)), sum)
 66 
tapply(x, list(group[row(x)], col(x)), sum)
67 
t(sapply(split(as.data.frame(x), group), colSums))
 67 
t(sapply(split(as.data.frame(x), group), colSums))