library(hypervolume)

combine_imputed <- read.csv("./data/trait_data_imputed.csv")
filters <- readRDS("./data/Sppdb_list_100replicates.rds")

with_info <- !is.na(combine_imputed$det_inv) &
  !is.na(combine_imputed$adult_mass_g)
combine_data <- combine_imputed[with_info, ]

traits_df <- combine_data[, c(7, 34:43)]
traits_df$adult_mass_g <- log(traits_df$adult_mass_g)

hv_mamm <- hypervolume_gaussian(traits_df, name = "Mammals", quantile.requested = 0.75)
hv_mamm_svm <- hypervolume_svm(traits_df, name = "Mammals")