R中的100点离散网格

Question

我正在尝试使用for循环来解决100点离散网格，但它现在完全吓坏了。

代码：

space<-c(1:100)
A<- 4
alpha<-0.3
beta<-0.98
vprime<-c(rep(0,100))
t_vj<-c(rep(0,100))
iterater<-function(space){
  for(i in space){
    for(j in space){
       t_vj[j+1] <- log(A*i^alpha-j)+ beta*tv_j[j] 
    }
    vprime[i]<-max(t_vj)
  }
plot(vprime)
}

返回

 Error: object 'tv_j' not found

为什么这个for循环不起作用？谢谢！

Answer 1

你是否正在尝试这样的事情：

space<-c(1:100)
A<- 4
alpha<-0.3
beta<-0.98
vprime<-c(rep(0,100))
t_vj<-c(rep(0,100))
t1 <- NULL
#iterater<-function(space){
for(i in space){
  for(j in space){
    t1[j] <- log(A*i^(alpha-j)) + beta*t_vj[j] 
  }
  vprime[i]<- max(t1)
}
plot(1:100, vprime)