Displaying 1 result from an estimated 1 matches for "meanfun".
2012 Jan 08
3
Conditional Loop For Data Frame Columns
...ata
frame, regardless of # columns, using some function and sorting the results
by an index vector:
#upload data (112 rows x 73 columns)
SD <- read.csv("/Users/johnjacob/Desktop/StudentsData_RInput.csv",
header=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...