diff --git a/script_NI_LSK.Rmd b/script_NI_LSK.Rmd
index a895ce02100b2ba7f45c6ee28f2a61b5f3b8a508..579f41564613884cb82bdc8e8eff60fd1d69e3ba 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)