R에서 가중치 무작위 부울을 만드는 빠른 방법

Question

좋아, 내가 미리 계산 한 사전 확률에 따라 임의의 부울을 만들 필요가있다. 현재이 같은 일을하고있다 : 이것은 물론 잘 작동

sample(0:1,1,replace=T, c(0.6, 0.4)) 

, 문제는 내가 시간이 수백만을 할 필요가있다 (다른 가중치마다 기초 - 예를 들어 0.6,0.4 간단한). 물론 그것을 sapply로 싸서 병렬 처리했는데 작동하지만, 수천만 개 이상을 처리해야 할 수도 있습니다. sample() 명령보다 가중치가있는 임의의 부울을 생성하는 더 빠른 방법이 있는지 궁금합니다.

Answer 1

이항 분포에서 샘플링하고 있으며이 작업을 수행하는 기본 제공 함수는 rbinom()입니다.

rbinom(n=10, size=1, prob = c(0.6, 0.4)) 
[1] 0 1 0 0 0 1 1 1 1 1 

---

타이밍 :

> system.time({ 
+ x <- rbinom(n=2.5e6, size=1, prob = c(0.6, 0.4)) 
+ }) 
    user system elapsed 
    0.17 0.00 0.17 
> str(x) 
int [1:2500000] 1 0 1 1 1 0 1 0 0 1 ...