# NOT RUN {
infile <- system.file("extdata", "example1_tac.evt", package = "scbursts")
transitions <- evt.read(infile)
dwells <- evt.to_dwells(transitions)
dwt.write(dwells, file=file.path(tempdir(), "dwells.dwt"))
# }
Run the code above in your browser using DataLab