R/charEdgelist.R

In Blaunet: Calculate and Analyze Blau Statuses for Measuring Social Distance

charEdgelist <-
function(edgelist, vertexNames) {
  char <- matrix('0', ncol = ncol(edgelist), nrow = nrow(edgelist))

  for (col in 1:ncol(edgelist)){
    for (row in 1:nrow(edgelist)) {
      char[row, col] <- vertexNames[edgelist[row, col]]
    }
  }
  return(char)
}