data(rotif.env)
head(rotif.env)
rarity(rotif.env[ , 18])
rarity(rotif.env, sp.cols = "Abrigh")
rarity(rotif.env, sp.cols = 18:47)
# yields one value of combined rarity for each row in 'data'
# fuzzy rarity (from favourability values):
pred <- multGLM(rotif.env, sp.cols = 18:20, var.cols = 5:17)$predictions
head(pred)
rarity(pred, sp.cols = "Abrigh_F")
rarity(pred, sp.cols = c("Abrigh_F", "Afissa_F", "Apriod_F"))
# yields one value of combined rarity for each row in 'data'
Run the code above in your browser using DataLab