How do you estimate nonlinear regression time intervals in R?
We are seeking to run the Generalized Norton Bass diffusion model in which we have three unknown parameters: m, p, and q (potential market size, innovation parameter, and imitation parameter). We would like to run the extended Bass diffusion model regression (see picture 1 and 2).
The function is given by sales = m1*F1(t)-m1*F1(t)*F2(t-t2).
F(t) = ((1-e^-(p+g)*t)/((q/p)*e^-((p+g)*t)+1))
We have currently run the following code, but are unsure how to define F2(t-t2) in the regression? How would you recommend doing so? We need to estimate the parameters m, q, and p
GNB.model.s1 <- nls(s1 ~
M * (1 - (exp(-(P+Q) * t1)))/(1 + (Q/P) * (exp(-(P+Q) * t1)))
- M * (1 - (exp(-(P+Q) * t1)))/(1 + (Q/P) * (exp(-(P+Q) * t1)))
* ( (1 - (exp(-(P+Q) * t1)))/(1 + (Q/P) * (exp(-(P+Q) * t1)))
- (1 - (exp(-(P+Q) * t2)))/(1 + (Q/P) * (exp(-(P+Q) * t2)))),
start = list(M=20000, P=0.03, Q=0.38), trace = T)
Where F(t) is given by: