data("Pixel", package="nlme")
mform <- pixel ~ day + I(day^2) + (day | Dog) + (1 | Side/Dog)
(bar.f <- findbars(mform)) # list with 3 terms
## Unfinished _FIXME_
## Pfrm <- model.frame(bar.f, data = Pixel)
Run the code above in your browser using DataLab