For循環陣列在R

Question

我想用一個100點的網格來解決一個動態編程系統，但是我的數組並沒有隨着每次迭代而改變 - 我在做什麼錯了？

謝謝！

k_cur<-2 
iterations<-100 
A<- 4 
alpha<-0.3 
beta<-0.98 
karray<-c(log(A*k_cur^alpha-(alpha*beta*A*(k_cur)^(alpha)))) 
awesomefunction<-function(iterations){ 
    for(i in 1:iterations){ 
      k_prime<-(alpha*beta*A*(k_cur)^(alpha)) 
      v_cur<-(log(A*k_curr^alpha-k_prime)) 
      karray<-append(v_cur,karray) 
      k_cur<-k_prime 
          } 
    print(karray) 
    plot(karray) 
    } 

Answer 1

我能看到的唯一的事情就是k_cur上線11 下面跑拼寫錯誤對我來說：

k_cur<-2 
iterations<-100 
A<- 4 
alpha<-0.3 
beta<-0.98 
karray<-c(log(A*k_cur^alpha-(alpha*beta*A*(k_cur)^(alpha)))) 
awesomefunction<-function(iterations){ 
    for(i in 1:iterations){ 
      k_prime<-(alpha*beta*A*(k_cur)^(alpha)) 
      v_cur<-(log(A*k_cur^alpha-k_prime)) 
      karray<-append(v_cur,karray) 
      k_cur<-k_prime 
          } 
    print(karray) 
    plot(karray) 
    } 

awesomefunction(4) 

和生產：

難道這就是你後？