Statistics
| Revision:

root / branches / pthreads-737 / examples / admb-re / orange / timing.s @ 765

History | View | Annotate | Download (456 Bytes)

1
# Does the timing of nlme() under Splus
2
fm1Oran.lis <- nlsList(circumference ~ SSlogis(age, Asym, xmid, scal) | Tree,data = Orange)
3
fm2Oran.nlme <- nlme( circumference ~ SSlogis(age, Asym, xmid, scal), data = Orange, fixed = Asym + xmid + scal ~ 1, random = Asym ~ 1, start = fixef(fm1Oran.lis) )
4
dos.time(nlme( circumference ~ SSlogis(age, Asym, xmid, scal), data = Orange, fixed = Asym + xmid + scal ~ 1, random = Asym ~ 1, start = fixef(fm1Oran.lis) ))