# NOT RUN {
infile <- system.file("extdata", "example1_tac.evt", package = "scbursts")
# Get Dwells
transitions <- evt.read(infile)
dwells <- evt.to_dwells(transitions)
dwells_c <- risetime.correct_gaussian(Tr=35.0052278, dwells, units="us")
# Get Header
header <- evt.extract_header(infile)
evt.write(dwells_c, header=header, file=file.path(tempdir(), "fixed_example1_tac.evt"))
# }
Run the code above in your browser using DataLab