# NOT RUN {
# save "res" in the files "myRecord.*" then read it again.
filename <- tempfile(pattern = "myRecord", tmpdir = tempdir())
ftest_write(fres = CedarCreek.2004.2006.res,
rtest = CedarCreek.2004.2006.test.components,
filename = filename,
opt.var = "components")
rtest <- ftest_read(filename = filename, opt.var = "components")
all.equal(rtest, CedarCreek.2004.2006.test.components)
# }
Run the code above in your browser using DataLab