Extract model formula
Returns the model formula from a fitted "gsl_nls"
object.
## S3 method for class 'gsl_nls' formula(x, ...)
x
: An object inheriting from class "gsl_nls"
....
: At present no optional arguments are used.If the object inherits from class "nls"
returns the fitted model as a formula similar to formula
. Otherwise returns the fitted model as a function .
## 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)) formula(obj)
formula