Skip to content
Snippets Groups Projects
Commit caf407de authored by Arvid Svensson's avatar Arvid Svensson
Browse files

corrected values for when andel_2daa>andel_skog

parent 20cf2bd9
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment