1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| MesDonnees <- data.frame(A=rep("25-34",3),B=c("r","t","y"),cas=c(1,3,0),control=c(1,0,1),total=c(2,3,1))
nbLig <- dim(MesDonnees)[1]
nbCol <- dim(MesDonnees)[2]
Res <- data.frame()
MesDonnees$casControl <- rep(0,nbLig)
k <- 1
for (i in 1:nbLig){
compt <- MesDonnees[i,"cas"]
for(j in 1:(MesDonnees[i,"total"])){
Res <- rbind(Res, MesDonnees[i,1:(nbCol+1)])
}
Res$casControl[k:(k+(MesDonnees[i,"total"])-1)] <- c(rep(1,compt), rep(0, (MesDonnees[i,"total"])-compt))
k <- k+(MesDonnees[i,"total"])
} |
Partager