Self-Starting nls power-exponential-inverse model

Computes the power-exponential-inverse function

SSpowExpoInv(input,a,b,c)

Arguments

input

a numeric vector of values at which to evaluate the model.
a

estimated model parameter
b

estimated model parameter
c

estimated model parameter

Value

a numeric vector of the same length as input. It is the value of the expression a*x^b*exp(c*(1/x)).

Note

This is primarily intended for use in formulae given to the nls function or similar functions for example mle2.

References

Goryl A., Jedrzejczyk Z., Kukula K. (Eds.), Osiewalski J., Walkosz A. (2004) "Wprowadzenie do ekonometrii w przykladach i zadaniach", Wydawnictwo Naukowe PWN, Warszawa.

Borkowski B., Dudek H., Szczesny W. (2004) "Ekonometria. Wybrane zagadnienia" , Wydawnictwo Naukowe PWN, Warszawa.

See also

selfStart, getInitial

Examples

x <- 1:20
y <- 7.25*x^2.85*exp(0.5*(1/x))
model <- nls(y ~ SSpowExpoInv(x,a,b,c),algorithm = "port")