Puedes usar `sample()` para generar la muestra:

    sample(0:1, 1000000, replace=TRUE)


Con esta función puedes generar desde una vector de muestra `0:1`, una `n` cantidad de valores, importante en este caso usar `replace=TRUE` para repetir valores, la generación va a ser aleatoria con una distribución uniforme, eventualmente podrías asignar una probabilidad a cada valor, usando el parámetro `prob`. 

La selección luego de una muestra, se puede hacer también con `sample()` pero esta vez para randomizar los índices que se usarán para seleccionar los datos:

    x <- sample(0:1, 1000000, replace=TRUE)
    muestra <- x[sample(1:1000000, 100)] # una muestra de 100 elementos