Detect whether a food web is composed of several disconnected sub-networks

Description

Run a deep search first algorithm (DFS)

Usage

is_connected(fw)

Arguments

Value

Boolean: TRUE if the food web is connected, FALSE if several disconnected sub-networks are detected.

Examples

library(ATNr)
set.seed(123)
# number of species, nutrients, and body masses
n_species <- 20
n_basal <- 5
n_nutrients <- 3
masses <- sort(10^runif(n_species, 2, 6)) #body mass of species
# create food web matrix
L <- create_Lmatrix(masses, n_basal)
L[, 1:n_basal] <- 0
fw <- L
fw[fw > 0] <- 1
connected <- is_connected(fw)