deviance.gsl_nls function

Model deviance

Returns the deviance of a fitted "gsl_nls" object.

## S3 method for class 'gsl_nls'
deviance(object, ...)

Arguments

• object: An object inheriting from class "gsl_nls".
• ...: At present no optional arguments are used.

Returns

Numeric deviance value similar to deviance

Examples

## data
set.seed(1)
n <- 25
xy <- data.frame(
  x = (1:n) / n,
  y = 2.5 * exp(-1.5 * (1:n) / n) + rnorm(n, sd = 0.1)
)
## model
obj <- gsl_nls(fn = y ~ A * exp(-lam * x), data = xy, start = c(A = 1, lam = 1))

deviance(obj)

See Also

deviance