# NOT RUN {
# save "res" in the files "myRecord.*" then read them again.
res <- CedarCreek.2004.res
filename <- tempfile(pattern = "myRecord", tmpdir = tempdir())
fclust_write(res, filename)
res <- fclust_read(filename)
all.equal(res, CedarCreek.2004.res)
# }
Run the code above in your browser using DataLab