R : Copyright 2005, The R Foundation for Statistical Computing
Version 2.2.0 Under development (unstable) (2005-05-11), ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for a HTML browser interface to help.
Type 'q()' to quit R.

> library(nlme)
> fm1 <- nlsList(SSasymp, Loblolly)
> fm1
Call:
  Model: height ~ SSasymp(age, Asym, R0, lrc) | Seed 
   Data: Loblolly 

Coefficients:
         Asym        R0       lrc
329  94.12820 -8.250753 -3.217578
327  94.94058 -7.757495 -3.229325
325  89.88487 -8.759017 -3.086219
307 110.69919 -8.169431 -3.390345
331 111.00287 -8.462608 -3.397574
311 109.98575 -8.558543 -3.362518
315 101.05622 -8.443628 -3.232825
321 127.13400 -7.679356 -3.575331
319 101.08748 -8.502343 -3.214021
301  95.66688 -9.078241 -3.116381
323  95.55627 -9.665035 -3.092266
309 113.51390 -7.595622 -3.352815
303 105.71792 -8.906081 -3.222957
305  99.17191 -9.916654 -3.084841

Degrees of freedom: 84 total; 42 residual
Residual standard error: 0.7003965
> fm2 <- nlme(fm1, random = Asym ~ 1)
> fm2
Nonlinear mixed-effects model fit by maximum likelihood
  Model: height ~ SSasymp(age, Asym, R0, lrc) 
  Data: Loblolly 
  Log-likelihood: -114.743
  Fixed: list(Asym ~ 1, R0 ~ 1, lrc ~ 1) 
      Asym         R0        lrc 
101.448300  -8.627494  -3.233730 

Random effects:
 Formula: Asym ~ 1 | Seed
            Asym  Residual
StdDev: 3.650645 0.7188624

Number of Observations: 84
Number of Groups: 14 
>