Displaying 1 result from an estimated 1 matches for "aavg".
Did you mean:
avg
2013 Apr 24
2
Distance matrices Combinations
...ich have lowest "o" values.
e <- vector("list", 124)
w<-sqrt(t)
mat1<-w
for (i in 1:124){
r<-matrix(sort(mat1[i,],index.return=TRUE)$ix,ncol=1)
u<-r[c(2,3,4,5,6),1]
mata<-m[,c(u)] ##(shifted)
amata<-apply(mata,1,mean)
amata<-data.frame(amata)
aavg<-as.matrix(amata, ncol=1)
b<-aavg
e[[i]]<-print(sum(abs(b-m[,i])))
}
x<-do.call(rbind,e)
Y<-x
z <- apply(Y,2,sd)
o<-mean(Y)
Does my question make any scene?
Thanks in advance
Elisa
[[alternative HTML version deleted]]