a<-seq(from=1, to=457, by=2)
test<-list()
for(i in a){cbind(scor[i,],scor[i+1,])->test[[i]]
}
test
test2<-do.call(rbind,test)
test3<-t(test2)