# 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"))
# Quit R, come back the next day
# }
# NOT RUN {
dwells <- dwt.read("dwells.dwt")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab