r - 用递归公式估计非线性回归参数

Question

我有一个非线性回归，如下所示：

y_t= (theta) sum(((1-theta)^k) (x_(tk))) + alpha * (gamma-z_t)

x_t 和 z_t 是自变量，theta 和 alpha 和 gamma 是参数。为了估计参数，我写了这个递归函数：

w_t<-function(theta,x,t){
s<-0
for (i in 0:(t-1)){
s<- s + theta * (x[t-i])*((1-theta)^i)
}
return(s)
}

在知道 theta 值的情况下计算回归模型的第一句。如何估计此模型中的 theta 和其他参数？