El objeto doors:

doors

1 2 3

Supón que eliges la puerta nº 1 y que, de hecho, la nº 1 tiene el premio...

Revelar una de las otras al azar:

reveal <- sample(x = doors[-1], size = 1)