R colonne aux noms de rames
samp2 <- samp[,-1]
rownames(samp2) <- samp[,1]
Plif Plouf
samp2 <- samp[,-1]
rownames(samp2) <- samp[,1]