R - 무작위로 숫자를 선택하고 조건이 만족 될 때까지 계속 반복하십시오.

Question

숫자가 8 인 요소를 벡터에서 임의로 선택하고 싶습니다. 숫자가 0이면 다른 숫자를 찾습니다. 숫자가 0보다 큰 경우이 숫자를 -1로 지정하십시오. 벡터의 합이 20이 될 때까지 반복합니다. R에서 어떻게 할 수 있습니까? vec<-c(2,3,6,0,8,5,6,5)

이 목록에서 번호를 무작위로 선택하고 숫자 -1 요소의 합이 20

Answer 1

될 때까지 나는 그게 당신이 원하는 것 정말 정말 모르겠어요,하지만에 대한합니다 예를 들어 내가 당신의 질문에 대해 이해하는 것은, 나의 해결책이다. 내 스크립트에서 대부분의 개념과 주요 기능을 사용할 수 있습니다. 그걸 이해하고 최적화하려면 that과 help()를 사용하십시오.

vec <- c(2, 3, 6, 0, 8, 5, 6, 5) 

summ <- 0 
new.vec <- NULL 
iter <- 1 
while(summ<20) { 
selected <- sample(vec,1) 
if(selected!=0) new.vec[iter] <- selected-1 
summ <- sum(new.vec) 
iter <- iter+1 
} 

Answer 2

이 시도 :

vec <- c(2, 3, 6, 0, 8, 5, 6, 5) 
#just setting the seed for reproducibility 
set.seed(19) 
tabulate(sample(rep(seq_along(vec),vec),20)) 
#[1] 0 2 4 0 4 5 3 2