compress.default.rd function

Do "zero" run-length encoding compression of a vector of numbers.