Minor fix to cover

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")