# NOT RUN {
tmpfile <- tempfile()
on.exit(unlink(tmpfile) )
z <- ts(matrix(100 + rnorm(200),100,2), start=c(1991,1), frequency=4)
tsWrite(z, file=tmpfile)
zz <- tsScan(tmpfile, nseries=2)
max(abs(z - zz))
# }
Run the code above in your browser using DataLab