Displaying 1 result from an estimated 1 matches for "studentsdata_rinput".
2012 Jan 08
3
Conditional Loop For Data Frame Columns
Hi,
I am trying to create a script that will evaluate each column of a data
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...