Ci-dessous, vingt façons de tirer sa révérence ...
Code : Tout sélectionner
Ciao <- c("Adieu, ", "je pars ", "bientôt ", "à la retraite, ", "ce fut un ", "plaisir ")
reverence <- combn(6, 3, function(x) {paste(paste(Ciao[x], collapse=""), paste(Ciao[-x], collapse=""), collapse="")})
as.data.frame(reverence)
Stéphane