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])}
}
}