File: getData.R

package info (click to toggle)
nlme 3.1.89-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 3,060 kB
  • ctags: 262
  • sloc: ansic: 3,135; makefile: 1
file content (8 lines) | stat: -rw-r--r-- 229 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
 
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))