# 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