# NOT RUN {
name <- system.file("extdata","datInSFexample6_1.px", package = "qmrparser")
stream <- streamParserFromFileName(name,encoding="UTF-8")
cstream <- pcAxisParser(stream)
if ( cstream$status == 'ok' ) {
cube <- pcAxisCubeMake(cstream)
pcAxisCubeToCSV(prefix="datInSFexample6_1",pcAxisCube=cube)
unlink("datInSFexample6_1*.csv")
}
# }
Run the code above in your browser using DataLab