#############################################
#############################################
#############################################
### MERGE FRENCH DATA

#########################
### read individuals tree data
load("./data/process/arbre.tot.merge.Rdata")
head(arbre.tot.merge)
### read climate
ecologie.clim.data <- readRDS("./data/process/ecologie.clim.data.rds")
head(ecologie.clim.data)

#### merge
dataIFN.FRANCE.t <- merge(arbre.tot.merge,ecologie.clim.data[,c("idp","SER","sgdd","WB.s","WB.y","WS.s","WS.y")],by="idp")
rm(arbre.tot.merge,ecologie.clim.data)

#### load plot data
load("./data/process/placette_tot.Rdata")
dataIFN.FRANCE <- merge(dataIFN.FRANCE.t,placette_tot[,names(placette_tot) != "YEAR"],by="idp")
rm(placette_tot,dataIFN.FRANCE.t)
save(dataIFN.FRANCE,file="./data/process/dataIFN.FRANCE.Rdata")
head(dataIFN.FRANCE)