l <- SummariseSweepFile(system.file("igor", "WedJul407c2_001.pxp", package="IgorR"))
cat("There are", l$NumWaves, "waves in the file each of total duration", l$StimWaveLength,
"ms and sample duration", l$StimSampleInterval, "ms \n")
Run the code above in your browser using DataLab