data-raw/plants_ants.R

In rrrlw/ICON: Provides Easy Access to Complex Systems Datasets

# read in adjacency matrix
adj_matrix <- read.table("data-raw/plants_ants.txt",
                         stringsAsFactors = FALSE,
                         header = FALSE)

# convert to edgelist
NUM_EDGES <- nrow(adj_matrix) * ncol(adj_matrix) - length(which(adj_matrix == 0))
plants_ants <- data.frame(Node1 = integer(NUM_EDGES),
                          Node2 = integer(NUM_EDGES),
                          Weight= integer(NUM_EDGES))
counter <- 1
for (i in 1:nrow(adj_matrix)) {
  for (j in 1:ncol(adj_matrix)) {
    if (adj_matrix[i,j] > 0) {
      plants_ants$Node1[counter] <- rownames(adj_matrix)[i]
      plants_ants$Node2[counter] <- colnames(adj_matrix)[j]
      plants_ants$Weight[counter]<- adj_matrix[i, j]

      counter <- counter + 1
    }
  }
}

# save
save(plants_ants,
     file = "data-host/plants_ants.rda")