diff --git a/00_Mesobromion_DataPreparation.R b/00_Mesobromion_DataPreparation.R
index cd991f39b9fff4b458be114247b40ff75378634a..f7e82c5da5db27097be51ee83c338f39cc7aba33 100644
--- a/00_Mesobromion_DataPreparation.R
+++ b/00_Mesobromion_DataPreparation.R
@@ -292,7 +292,11 @@ env <- env %>%
 
 
 ##export for Valerio
-write_delim(species, path="_data/Mesobromion/species.out.10perc.cov.txt", delim="\t")
+write_delim(species %>% #transform percentage cover to relative.cover
+            mutate(sumVar = rowSums(.[-1])) %>% 
+              mutate_at(.vars=vars(-RELEVE_NR), 
+                        .funs=~./sumVar) %>% 
+              dplyr::select(-sumVar), path="_data/Mesobromion/species.out.10perc.cov.txt", delim="\t")
 write_delim(traits, path="_data/Mesobromion/traits.out.10perc.cov.txt", delim="\t")
 write_delim(env, path="_data/Mesobromion/env.10perc.cov.txt", delim="\t")