
7 Mar
2013
7 Mar
'13
16:25
s <- split(dados, dados$GRUPO) s$"5" <- s$"5"[sample(1:nrow(s$"5"), 6),] do.call('rbind', s)