nls
object
formula(object)
nlsList
data(Loblolly) fm1 <- nlsList(SSasymp, Loblolly) formula(fm1)
Run the code above in your browser using DataLab