if (FALSE) {
## Get all tokens of "the"
the.tokens <- getMatches(labbcat.url, "the")
## Get a 22kHz sample rate wav file for each matched utterance
the.wavs <- the.tokens |> fragmentTranscripts(sample.rate = 22050)
}
Run the code above in your browser using DataLab