From b0bcd1254e0f87a6658584dd2fc28dad18460612 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Tue, 4 Aug 2020 13:37:57 +0200
Subject: [PATCH] Minor fix to cover

---
 00_Mesobromion_DataPreparation.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/00_Mesobromion_DataPreparation.R b/00_Mesobromion_DataPreparation.R
index cd991f3..f7e82c5 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")
 
-- 
GitLab