###### Vérification du nombre d'observations par année
verif_africa=data.frame(year=1901:2012,nb_obs=NA)
verif_asia=data.frame(year=1901:2012,nb_obs=NA)
verif_eur=data.frame(year=1901:2012,nb_obs=NA)
verif_NoAm=data.frame(year=1901:2012,nb_obs=NA)
verif_SoAm=data.frame(year=1901:2012,nb_obs=NA)
verif_oceana=data.frame(year=1901:2012,nb_obs=NA)

j=1
for (i in 1901:2012){
  afr=subset(africa.hist.precip,africa.hist.precip$year==i)
  verif_africa[j,]$nb_obs=dim(afr)[1]
  
  asi=subset(asia.hist.precip,asia.hist.precip$year==i)
  verif_asia[j,]$nb_obs=dim(asi)[1]
  
  eur=subset(eur.hist.precip,eur.hist.precip$year==i)
  verif_eur[j,]$nb_obs=dim(eur)[1]
  
  NoA=subset(NoAm.hist.precip,NoAm.hist.precip$year==i)
  verif_NoAm[j,]$nb_obs=dim(NoA)[1]
  
  SoA=subset(SoAm.hist.precip,SoAm.hist.precip$year==i)
  verif_SoAm[j,]$nb_obs=dim(SoA)[1]
  
  ocea=subset(oceana.hist.precip,oceana.hist.precip$year==i)
  verif_oceana[j,]$nb_obs=dim(ocea)[1]
  j=j+1
}