Displaying 1 result from an estimated 1 matches for "nlsstart".
Did you mean:
tlsstart
2012 May 11
0
NLS sensitivity to start= values or poles in data range
...itmodel <- (depsubset ~ I(indsubset^1)
+ I(indsubset^2)
+ I(indsubset^3)
+ I(-1 * indsubset^1 * depsubset)
+ I(-1 * indsubset^2 * depsubset)
+ I(-1 * indsubset^3 * depsubset))
InputDatalm <- lm(initmodel)
summary(InputDatalm)
fitted.values(InputDatalm)
nlsstart <- coef(InputDatalm)
names(nlsstart) <- c("A0", "A1", "A2", "A3", "B1", "B2", "B3")
nlsstart <- as.list(nlsstart)
attach(nlsstart)
curve((A0*x^0+A1*x^1+A2*x^2+A3*x^3)/(1+B1*x^1+B2*x^2+B3*x^3),
from = min(K),...