## create a segment list file and write it out
# seglist.txt <- "database:demo"\
# query:Phonetic=vowel\
# type:segment\
#\
# @: 3059.65 3343.65 msdjc001\
# e: 5958.55 6244.55 msdjc002\
# @u 8984.75 9288.75 msdjc003\
# A 11880.8 12184.8 msdjc004\
# E 17188.3 17366.4 msdjc005\
# ei 20315.2 20655.2 msdjc006"
if (FALSE) cat(seglist.txt, file="seglist.txt")
# now read it back as a segment list
if (FALSE) segs <- read.emusegs("seglist.txt")
if (FALSE) segs
## and clean up
if (FALSE) unlink("seglist.txt")
Run the code above in your browser using DataLab