From caf407deb0aec3927e6c72f9f9d1eea226e808b2 Mon Sep 17 00:00:00 2001
From: Arvid Svensson <arvid.svensson@nibio.no>
Date: Tue, 3 Jun 2025 07:30:17 +0000
Subject: [PATCH] corrected values for when andel_2daa>andel_skog

---
 script_NI_LSK.Rmd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/script_NI_LSK.Rmd b/script_NI_LSK.Rmd
index a895ce0..579f415 100644
--- a/script_NI_LSK.Rmd
+++ b/script_NI_LSK.Rmd
@@ -264,12 +264,14 @@ Res_ind_23<-cbind("Blåbær",beregninger.boot(fla_boot))
 dat_MIS_prod<-MIS%>%filter(strata!="2")
   
 dat_MIS_prod<-dat_MIS_prod%>%mutate(AREALTYPE=as.numeric(AREALTYPE),
+                                    ANDEL_2DAA=case_when(ANDEL_2DAA>ANDEL_SKOG~ANDEL_SKOG,
+                                                         TRUE~ANDEL_2DAA),
                       ANDEL_2DAA=case_when(ANDEL_2DAA==99~100,
                                            TRUE~ANDEL_2DAA),
                       ANDEL_SKOG=case_when(ANDEL_SKOG==99~100,
                                            TRUE~ANDEL_SKOG),
 
-                      areal=(ANDEL_2DAA/ANDEL_SKOG*100)) #*AU_AREAL/100
+                      areal=(ANDEL_2DAA/ANDEL_SKOG*100))
 
 dat_MIS_prod<-merge(dat_MIS_prod,regioner,by=c("FLATEID"),all.x = T)
 dat_MIS_prod<-dat_MIS_prod%>%mutate(region=Area.Name)
-- 
GitLab