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
}