## Compress a sparse vector and look at it
str(cv <- compress( vv <- c(rep(0,100),564) ))
## Uncompress the vector, (uncompress.default is used)
str(ucv <- uncompress(cv))
all(ucv == vv)
## a bit less sparse:
vv[sample(seq(vv), 5)] <- 1:5
str(cv <- compress(vv))
all(vv == uncompress(cv))
Run the code above in your browser using DataLab