Displaying 1 result from an estimated 1 matches for "fjm13".
Did you mean:
fc13
2012 Jan 08
3
Conditional Loop For Data Frame Columns
...TRUE)
#assign index vector
ID <- SD[ ,2]
#write indexed mean function
meanfun <- function(x) {
for(i in 3:ncol(x)) {
meanSD <- tapply(x[,i], ID, FUN=mean)}
return(meanSD)
}
#apply function to data
meanfun(SD)
What I get is one set of indexed means:
7605 Andrea Billy ERR006 FJM13
2.111111 1.400000 1.888889 3.692308 3.750000
Gayan Jschaef Whitney
1.300000 2.285714 2.000000
...and what I would like to generate is a set of indexed means for each
column in the data set.
Any guidance would be much appreciated!
Best,
Logan
--
View this message in context: http://...