write_matrix.r

来自「这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件」· R 代码 · 共 24 行

write_matrix<-function(data, labT){
   n<-length(labT)
   D<-matrix(999, ncol=n, nrow=n, 
      dimnames=list(labT, labT))
   for (i in 1:n)
      D[i,i]<-0

   row_name<-labT; col_name<-labT
   for (k in 1:nrow(data)){
      for (i in 1:n){
         if (row_name[i]==data$i[k]){
            for (j in 1:n){
               if (data$j[k]==col_name[j]){
                  D[i, j] <- data$km[k]
                  D[j, i] <- data$km[k]
               }
            }
         }
      }
   }
   D
}