루핑없이 다음으로 시작

Question

두 벡터가 있습니다. 하나는 일련의 시작 또는 일련의 id이고 다른 하나는 각 시작에서 다음 위치에 대한 안내입니다.

분석을위한 주요 위치가 첫 번째 위치입니다. 다음 벡터에서 해당 숫자를 위치에 추가하여 다음으로 이동해야합니다. 나는에서 시작되어있을 것으로 예상 무엇

starts <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) 
nexts <- c(4,2,1,1,3,5,1,1,3,2,10,2,3,4,1,1,1,1,4,6) 

는 다음 4 개 장소를 이동하는 나에게 말한다, 1 "시작", 그래서 1 + 4, 다음 시작 5에서 다음 3 개 장소를 이동하는 나에게 말한다 시작에 나는 결국 이제 시작 8시에 8시에 해당하는 다음 숫자는 1이고, 9에서 9로 이동하면 다음 이동은 3 ...

최종 목표는이 목표와 같은 벡터 일 것입니다 < - c (5,8,9,12 ....). 각 "착륙"에서 다음 이동의 크기를 읽는 것만으로 다음을 사용하여 "점프"를 할 수 있다면 첫 번째 벡터 "시작"이 실제로 필요하지 않을 수도 있습니다. 1에서 4로 뛰어 오르고 5에 도착하고 5에서 3으로 8에서 1로 이동하여 8에서 1로 이동합니다.

Answer 1

질문을 명확하게 말하지는 않았지만 당신이 원하는 것은 이것이다 :

starts <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) 
nexts <- c(4,2,1,1,3,5,1,1,3,2,10,2,3,4,1,1,1,1,4,6) 

i <- 1 
while (i %in% starts) { 
    s <- starts[i] 
    n <- nexts[s] ### <--- correction: not nexts[i] 
    i <- s + n 
    cat(sprintf("%d + %d -> %d\n", s, n, i)) 
} 

# 1 + 4 -> 5 
# 5 + 3 -> 8 
# 8 + 1 -> 9 
# 9 + 3 -> 12 
# 12 + 2 -> 14 
# 14 + 4 -> 18 
# 18 + 1 -> 19 
# 19 + 4 -> 23 

UPDATE :

죄송합니다, 루프없이 할 수있는 방법이있다; (루프로 같은 결과를 얻을 수 있다면 재귀 함수를 사용하십시오.) ...

recursive.func <- function(start, starts, nexts) { 
    next.start <- start + nexts[start] 
    if (!next.start %in% starts) 
     return(next.start) 
    return(c(next.start, recursive.func(next.start, starts, nexts))) 
} 

# execute like this: 
my.start <- starts[1] 
recursive.func(my.start, starts, nexts)