s <- split(dados, dados$GRUPO)
s$"5" <- s$"5"[sample(1:nrow(s$"5"), 6),]
do.call('rbind', s)_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
