If you format it a little differently, it is easier to read:
bob<-read.csv('shi.csv', header=T)
newmean<-matrix(0, test, dim(bob)[2]-6)
a<-0
for (i in c(4,8:(dim(bob)[2]))){
a<-a+1
newmean[,a]<-tapply(bob[,i], bob$Exam, mean)
}
colnames(newmean)<-colnames(bob)[c(4,8:(dim(bob)[2]))]
It lo
see ?mean
Then avoid other peoples code.
cenae27 wrote:
>
> bob<-read.csv('shi.csv', header=T)
>
> newmean<-matrix(0, test, dim(bob)[2]-6);a<-0; for (i in
> c(4,8:(dim(bob)[2])))
> {a<-a+1;newmean[,a]<-tapply(bob[,i], bob$Exam, mean)}
> colnames(newmean)<-colnames(bob)[c(4,8:(dim(bob)[2]))]
>
bob<-read.csv('shi.csv', header=T)
newmean<-matrix(0, test, dim(bob)[2]-6);a<-0; for (i in
c(4,8:(dim(bob)[2])))
{a<-a+1;newmean[,a]<-tapply(bob[,i], bob$Exam, mean)}
colnames(newmean)<-colnames(bob)[c(4,8:(dim(bob)[2]))]
Could anyone please help me what does the above code does ... I want to fin
3 matches
Mail list logo