### 网络(Network)数据集格式转对称矩阵(Matrix)格式函数
### 本函数适用于无向网络图

##  网络数据格式适用于R/Gelhi/Pajek等
    #######################                   ####################### 
    # 网络数据标准数据格式#           #       #  矩阵标准数据格式   #
    #######################            #      #######################
    # source target value #      ########     #   a       b      c  # 
    #   a      b     2    #            #      #a  0       2      2  #
    #   a      c     2    #           #       #b  2       0      4  #
    #   b      c     4    #                   #c  2       4      0  #  
    #######################                   #######################
##  对称矩阵格式适用于Ucinet等

TraNtoM <- function(data,x,n)       ## x为权数所在列；n为节点个数
{
  Matrix <- matrix(nrow=n,ncol=n)
  for(i in 1:(n-1))                  ##建立上三角矩阵
    {
    if(i==1)
      {
      Matrix[i,2:n] <- data[1:(n-1),x]
      }else
      {
        Matrix[i,(i+1):n] <- data[(1+sum((n-i+1):(n-1))):(i*n-sum(1:i)),x]
      }
    }
  for(i in 1:n)                      ##对角赋0
   {
     for(j in 1:n)
     {
       {
        if(is.na(Matrix[i,j]) == TRUE)
         {Matrix[i,j]<- 0} 
       }
     }
   }
  Matrix <- t(Matrix)+Matrix         ##下三角矩阵+上三角矩阵
  print(Matrix)
}

##Author
# JianCheng Li
# School of Economics ＆ Management 
# Zhejiang University of Technology 
# No.288.Liuhe Road, Hangzhou, Zhejiang, P.R.China, 310000