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)