View source: R/bioregionalization_metrics.R
bioregionalization_metrics | R Documentation |
This function calculates metrics for one or several bioregionalizations,
typically based on outputs from netclu_
, hclu_
, or nhclu_
functions.
Some metrics may require users to provide either a similarity or dissimilarity
matrix, or the initial species-site table.
bioregionalization_metrics(
bioregionalization,
dissimilarity = NULL,
dissimilarity_index = NULL,
net = NULL,
site_col = 1,
species_col = 2,
eval_metric = "all"
)
bioregionalization |
A |
dissimilarity |
A |
dissimilarity_index |
A |
net |
The site-species network (i.e., bipartite network). Should be
provided as a |
site_col |
The name or index of the column representing site nodes
(i.e., primary nodes). Should be provided if |
species_col |
The name or index of the column representing species nodes
(i.e., feature nodes). Should be provided if |
eval_metric |
A |
Evaluation metrics:
pc_distance
: This metric, as used by Holt et al. (2013), is the
ratio of the between-cluster sum of dissimilarities (beta-diversity) to the
total sum of dissimilarities for the full dissimilarity matrix. It is calculated
in two steps:
Compute the total sum of dissimilarities by summing all elements of the dissimilarity matrix.
Compute the between-cluster sum of dissimilarities by setting within-cluster
dissimilarities to zero and summing the matrix.
The pc_distance
ratio is obtained by dividing the between-cluster sum of
dissimilarities by the total sum of dissimilarities.
anosim
: This metric is the statistic used in the Analysis of
Similarities, as described in Castro-Insua et al. (2018). It compares
between-cluster and within-cluster dissimilarities. The statistic is computed as:
R = (r_B - r_W) / (N (N-1) / 4),
where r_B and r_W are the average ranks of between-cluster and within-cluster
dissimilarities, respectively, and N is the total number of sites.
Note: This function does not estimate significance; for significance testing,
use vegan::anosim().
avg_endemism
: This metric is the average percentage of
endemism in clusters, as recommended by Kreft & Jetz (2010). It is calculated as:
End_mean = sum_i (E_i / S_i) / K,
where E_i is the number of endemic species in cluster i, S_i is the number of
species in cluster i, and K is the total number of clusters.
tot_endemism
: This metric is the total endemism across all clusters,
as recommended by Kreft & Jetz (2010). It is calculated as:
End_tot = E / C,
where E is the total number of endemic species (i.e., species found in only one
cluster) and C is the number of non-endemic species.
A list
of class bioregion.bioregionalization.metrics
with two to three elements:
args
: Input arguments.
evaluation_df
: A data.frame
containing the eval_metric
values for all explored numbers of clusters.
endemism_results
: If endemism calculations are requested, a list
with the endemism results for each bioregionalization.
Boris Leroy (leroy.boris@gmail.com)
Maxime Lenormand (maxime.lenormand@inrae.fr)
Pierre Denelle (pierre.denelle@gmail.com)
Castro-Insua A, Gómez-Rodríguez C & Baselga A (2018) Dissimilarity measures affected by richness differences yield biased delimitations of biogeographic realms. Nature Communications 9, 9-11.
Holt BG, Lessard J, Borregaard MK, Fritz SA, Araújo MB, Dimitrov D, Fabre P, Graham CH, Graves GR, Jønsson Ka, Nogués-Bravo D, Wang Z, Whittaker RJ, Fjeldså J & Rahbek C (2013) An update of Wallace's zoogeographic regions of the world. Science 339, 74-78.
Kreft H & Jetz W (2010) A framework for delineating biogeographical regions based on species distributions. Journal of Biogeography 37, 2029-2053.
For more details illustrated with a practical example, see the vignette: https://biorgeo.github.io/bioregion/articles/a4_1_hierarchical_clustering.html#optimaln.
Associated functions: compare_bioregionalizations find_optimal_n
comat <- matrix(sample(0:1000, size = 500, replace = TRUE, prob = 1/1:1001),
20, 25)
rownames(comat) <- paste0("Site",1:20)
colnames(comat) <- paste0("Species",1:25)
comnet <- mat_to_net(comat)
dissim <- dissimilarity(comat, metric = "all")
# User-defined number of clusters
tree1 <- hclu_hierarclust(dissim,
n_clust = 10:15,
index = "Simpson")
tree1
a <- bioregionalization_metrics(tree1,
dissimilarity = dissim,
net = comnet,
site_col = "Node1",
species_col = "Node2",
eval_metric = c("tot_endemism",
"avg_endemism",
"pc_distance",
"anosim"))
a
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.