100-точечная дискретная сетка в R

Question

Я пытаюсь использовать петли для решения 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

Почему этот цикл не работает? Спасибо!

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)