Self-Starting nls lorentz model

lorentz peak function.

SSlorentz(input,y0,A,xc,w)

Arguments

input

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

offset
A

area
xc

center
w

width

Value

a numeric vector of the same length as input. It is the value of the expression y0+A*(2*w)/(pi*(4*(x-xc)^2+w^2)).

Note

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

References

Origin: http://www.originlab.com/doc/Origin-Help/Lorentz-FitFunc.

See also

selfStart, getInitial

Examples

data(smoking)
smoking$t <- 1:nrow(smoking)
model <- nlsLM(Germany ~ SSlorentz(t,y0,A,xc,w),data=smoking)