Calculate leverage values
Returns leverage values (hat values) from a fitted "gsl_nls"
object based on the estimated variance-covariance matrix of the model parameters.
## S3 method for class 'gsl_nls' hatvalues(model, ...)
model
: An object inheriting from class "gsl_nls"
....
: At present no optional arguments are used.Numeric vector of leverage values similar to hatvalues
.
## 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)) hatvalues(obj)
hatvalues