랜덤 워크에 스텝 카운터를 포함하려면 어떻게해야합니까?

Question

무작위 도보 루프에서는 단계 번호를 변수로 사용하는 함수를 통합해야합니다.

랜덤 워크 중에 R이 스텝 번호를 생성하도록하려면 (루프 카운터가 더 좋은 용어 일 수 있습니다)?

내가 바로 내가 현재 내 랜덤 워크 코드는 참고 더미 코드 step.num

이이 코드의 끝에 그것을 필요했다 for 루프 후

walkW <- function(n.times=125, 
       xlim=c(524058,542800), 
       ylim=c(2799758,2818500), 
       start=c(542800,2815550), 
       stepsize=c(4000,4000)) { 

    plot(c(0,0),type="n",xlim=xlim,ylim=ylim, 
      xlab="Easting",ylab="Northing",col="white",col.lab="white")#arena 
    x <- start[1] 
    y <- start[2] 
    steps <- 1/c(1,2,4,8,12,16) 
    steps.y <- c(steps,-steps,0) 
    steps.x <- c(steps[c(1,5,6)],-steps,0) 
    points(x,y,pch=16,col="green",cex=1) 

for (i in 1:n.times) { 
     repeat { 
      xi <- stepsize[1]*sample(steps.x,1) 
      yi <- stepsize[2]*sample(steps.y,1) 
      newx <- x+xi 
      newy <- y+yi 
      if (newx>xlim[1] && newx<xlim[2] && 
       newy>ylim[1] && newy<ylim[2]) break 
     } 
     lines(c(x,newx),c(y,newy),col="white") 
     x <- newx 
      y <- newy 
} 
    step.num<-(your magical step counter function) #I need the step counter here 
} 

set.seed(101) 
walkW(s) 

Answer 1

"깨진", 인덱스 변수는 계속, 그래서 마법의 코드는 다음과 같습니다에 대한-루프 기술적 기능이

step.num <- i 

하지만, 때로는 그들이 diffe 것 같다 범위 규칙을 세우십시오. 함수는 'step.num'값을 반환하고 walkW을 종료 한 후에는 'i'에 액세스 할 수 없지만 for 루프가 .GlobalEnv에서 수행 된 경우 색인 'i'에는 여전히 break을 통해 for-loop가 끝나면 재설정되거나 NULL이 적용됩니다.