Extract Model Formula from nls Object

DESCRIPTION:

Returns the model used to fit object.

USAGE:

formula(object) 

REQUIRED ARGUMENTS:

object
an object inheriting from class nls, representing a non-linear least squares fit.

VALUE:

a formula representing the model used to obtain object.

SEE ALSO:

,

EXAMPLES:

fm1 <- nls(circumference ~ A/(1+exp((B-age)/C)), Orange, 
  start = list(A=160, B=700, C = 350)) 
formula(fm1)