# NOT RUN {
(x <- data.frame(V1=sample.int(3,30,replace=TRUE),
V2=sample.int(2,30,replace=TRUE),
V3=sample.int(4,30,replace=TRUE)))
(c <- compress.data.frame(x))
stopifnot(all(decompress.data.frame(c)==x))
# }
Run the code above in your browser using DataLab