data(secrdemo)
## 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 = 'single')
summary (temp)
summary (captdata)
## should match exactly
Run the code above in your browser using DataLab