Quickly calculating network metrics in bipartite

networklevel_apply.R

library(bipartite)

# make some example networks
mat_list <- list()
for(i in 1:512){
  mat_list[[i]] <- matrix(ncol = 10, nrow = 10,
                          sample(c(0,1), 100, replace = T))
}

# now do all the calculations at once (depending on your computers ability)
# using lapply
metric_value_list <- lapply(mat_list, function(x) 
  networklevel(x, index = c('connectance', 'NODF', 'robustness')))

# then bind the list together into a dataframe                            
metric_value_df <- dplyr::bind_rows(metric_value_list)