packrat/lib-R/nlme/tests/data.frame.R

In UBC-MDS/Karl:

stopifnot(!any("package:nlme" == search())) # nlme *not* attached

ll <- LETTERS[1:10]
subs <- rep(ll, rep(3,10))
set.seed(101)# make reproducible
resp <- rnorm(30)

(gd <- nlme::groupedData(resp ~ 1|subs))
## failed in nlme < 3.1-129 (or previous to 2017-01-17)
stopifnot(inherits(gd, "groupedData"),
	  identical(dim(gd), c(30L, 2L)),
	  inherits(gs <- gd[,"subs"], "ordered"),
	  identical(sort(levels(gs)), ll),
	  identical(sort.list(levels(gs)),
		    c(5L, 9L, 8L, 4L, 10L, 2L, 1L, 6L, 7L, 3L)))