Gerar códigos para Análise Sensorial no R

Para gerar os códigos para as amostras da minha análise sensorial estabeleci que o intervalo vai de 100 a 999, pois todos terão três dígitos, em seguida só fiz um sorteio com o comando sample() e depois usei a compara para ver se algum número repetia entre uma amostra e outra. Tudo seguindo o script abaixo.

Não se esqueçam de anotar os códigos gerados em outro documento (documento de texto) pois a cada vez que se roda o script são gerados números diferentes pois é sorteio aleatório. Por isso deve ficar salvo os grupos de códigos para identificar qual é cada amostra depois. Segue os comando abaixo:

### Amostras Analise Sensorial ###

amostra1 <- sample(100:999, 50, replace = FALSE)
amostra2 <- sample(100:999, 50, replace = FALSE)
amostra3 <- sample(100:999, 50, replace = FALSE)

# verificar se sao iguais
all(amostra1 != amostra2) # se TRUE nao tem numeros iguais
all(amostra1 != amostra3) # se TRUE nao tem numeros iguai
all(amostra3 != amostra2) # se TRUE nao tem numeros iguai

# mostra os codigos
amostra1
amostra2
amostra3