forループからの出力を得るには

Question

これはRのループコードのために書こうとしていますが、このエラーが発生します。

Error in h(i - 1) : could not find function "h" 

どうすればよいですか？

F1<-as.matrix(F_1_) #importing data 
a01=0.1    #importing parameters 
a11=0.1 
b11=0.1 
epsilon=0.5 
a02=0.1 
a12=0.1 
b12=0 
h(0) <- 0.3208 #starting value for h(i) 

for(i in 1:2377) 
{ 
h(i)<- ((a01+a11*h(i-1)*(epsilon^2)*h(i-1)*b11)+F1[,2]*(a02+a12*h(i-1)*(epsilon^2)+h(i-1)*b12)) 
} 
return(h(i))  #getting output from h(i), h(i) depend on h(i-1) and other parameters 

Answer 1

h()は、hが関数であると仮定します。

hを空のリストとして設定し、初期化して繰り返し実行することができます。

h <- list() 
h[[1]] <- 0 # or whatever initial value 
for(i in 2:2377) 
{ 
h[[i]]<- ((a01+a11*h[[i-1]]*(epsilon^2)*h[[i-1]]*b11)+F1[,2]*(a02+a12*h[[i-1]]*(epsilon^2)+h[[i-1]]*b12)) 
} 

また、hを0のベクトルとして初期化して同様の方法で反復することができます。