[R-br] quebrar amostra através de sorteio aleatório sem reposição