## Not run: ------------------------------------
#
# ## coerce data to proximity detector type for export
# demo <- reduce(captdata, output = "proximity")
# write.SPACECAP (demo, filestem = "demo")
#
# ## now read back the data just exported...
# temp <- read.SPACECAP ("demoAC.csv", "demoTD.csv")
# temp <- reduce(temp, output = "multi")
# summary (temp)
# summary (captdata)
#
# ## should match exactly
# identical(summary(temp), summary(captdata))
#
## ---------------------------------------------
Run the code above in your browser using DataLab