if (FALSE) {
# Don't use directly
datapath <- system.file('extdata', package='praatpicture')
soundFile <- paste0(datapath, '/2.wav')
tg <- make_TextGrid(soundFile, tierNames='Mary')
# Follow the steps shown in the console
praatpicture(soundFile, tg_obj=tg)
}
Run the code above in your browser using DataLab