if (FALSE) {
data(co021)
fname <- write.compact(rwl.df = co021,
fname = tempfile(fileext=".rwl"),
append = FALSE, prec = 0.001)
foo <- read.compact(fname)
str(foo)
str(co021)
all.equal(foo,co021)
unlink(fname)
}
Run the code above in your browser using DataLab