if (FALSE) {
# Open a single file
script <- system.file("extdata", "get-formants.praat", package = "speakr")
praat_open(script)
# Open multiple files
wav <- system.file("extdata", "vowels.wav", package = "speakr")
tg <- system.file("extdata", "vowels.TextGrid", package = "speakr")
praat_open(wav, tg)
}
Run the code above in your browser using DataLab