tests/getData.R

library(nlme)
fm1 <- lme(distance ~ age, Orthodont)
str(o1 <- getData(fm1))

df <- Orthodont # note that the name conflicts with df in the stats
fm2 <- lme(distance ~ age, df)
str(o2 <- getData(fm2))
stopifnot(identical(o1, o2))

Try the nlme package in your browser

Any scripts or data that you put into this service are public.

nlme documentation built on Nov. 27, 2023, 5:09 p.m.