# Load Species x Traits data
data("fruits_traits", package = "mFD")
# Load Traits x Categories data
data("fruits_traits_cat", package = "mFD")
# Remove fuzzy traits for this example and thus remove lat column:
fruits_traits <- fruits_traits[ , -c(6:8)]
fruits_traits_cat <- fruits_traits_cat[-c(6:8), ]
fruits_traits_cat <- fruits_traits_cat[ , -3]
# Compute Functional Distance
sp_dist_fruits <- mFD::funct.dist(sp_tr = fruits_traits,
tr_cat = fruits_traits_cat,
metric = "gower",
scale_euclid = "scale_center",
ordinal_var = "classic",
weight_type = "equal",
stop_if_NA = TRUE)
sp_dist_fruits
Run the code above in your browser using DataLab