# NOT RUN {
## define the LaBB-CAT URL
labbcat.url <- "https://labbcat.canterbury.ac.nz/demo/"
## Perform a search
results <- getMatches(labbcat.url, list(segments="I"))
## Get pitch mean, max, and min for all matches
pitch <- processWithPraat(
labbcat.url,
results$MatchId, results$Target.segments.start, results$Target.segments.end,
praatScriptPitch(get.mean=TRUE, get.minimum=TRUE, get.maximum=TRUE),
no.progress=TRUE)
# }
Run the code above in your browser using DataLab