Code : Tout sélectionner
library(tidyr)
library(dplyr)
test <- gather(z, key = "v1", value = "v2", -(1:2))
test <- test[test$v2!="",]
test <- spread(test, 2, 4)
test %>% select(1, 4, 3) %>% fill(mere, fille)
Code : Tout sélectionner
tab <- expand.grid(Freq = Freq, Index= Index)[,2:1]
tab$Amp <- c(Amp)
Code : Tout sélectionner
cbind(df[,1], t(apply(df[-1], 1, cumsum)))