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

Question

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

y_t =（θ） sum（（（1-theta）^ k）（x_（t-k）））+ 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和其他参数？