dpt<-rownames(prenoms)
nom_par_annee_H<-matrix(NA,95,61)
colnames(nom_par_annee_H) <- c(1946:2006)
rownames(nom_par_annee_H) <- dpt
nom_par_annee_F<-matrix(NA,95,61)
colnames(nom_par_annee_F) <- c(1946:2006)
rownames(nom_par_annee_F) <- dpt
for (dep in 1:95){
  ho <- data.frame(sour$name[sour$dep==dpt[dep] & sour$sex=="M"],
                     sour$n[sour$dep==dpt[dep] & sour$sex=="M"],
                     sour$year[sour$dep==dpt[dep] & sour$sex=="M"])
    colnames(ho) <- c("name","n","year")
    
    fe <- data.frame(sour$name[sour$dep==dpt[dep] & sour$sex=="F"],
                     sour$n[sour$dep==dpt[dep] & sour$sex=="F"],
                     sour$year[sour$dep==dpt[dep] & sour$sex=="F"])
    colnames(fe) <- c("name","n","year")
    
  for (i in 0:60){
    #pour les hommes
    nom <- data.frame(ho$name[ho$year==1946+i],
                      ho$n[ho$year==1946+i])
    colnames(nom) <- c("name","n")
    if (length(nom$n)>=1) {#cas ou il y a une info renseignee
      #nom <- aggregate(n ~ name, nom, sum)
      nom_par_annee_H[dep,i+1] <- as.character(nom[which.max(nom$n),1])}
    
    #pour les femmes
    nom <- data.frame(fe$name[fe$year==1946+i],
                      fe$n[fe$year==1946+i])
    colnames(nom) <- c("name","n")
    if (length(nom$n)>=1) {
      #nom <- aggregate(n ~ name, nom, sum)
      nom_par_annee_F[dep,i+1] <- as.character(nom[which.max(nom$n),1])}
  }
}