comput_small_matrix.r

这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件

comput_small_matrix<-function(Large_matrix, labT){
   index<-0
   for (i in 1:length(labT)){
      for (j in 1:nrow(Large_matrix)){
         if (labT[i]==rownames(Large_matrix)[j]){
            index[i]<-j
         }
      }
   }
   index
}