comat <- matrix(sample(0:1000, size = 50, replace = TRUE,
prob = 1 / 1:1001), 5, 10)
rownames(comat) <- paste0("s", 1:5)
colnames(comat) <- paste0("sp", 1:10)
sim <- bind_pairwise(primary_metrics = similarity(comat,
metric = "abc"),
secondary_metrics = similarity(comat,
metric = "Simpson"),
new_metrics = "1 - (b + c) / (a + b + c)")
Run the code above in your browser using DataLab