if (FALSE) {
## Get all tokens of /I/
results <- getMatches(labbcat.url, list(segment="I")) |>
appendFromPraat( ## get F1 and F2 for the mid point of the vowel
Target.segment.start, Target.segment.end, # for the vowel
praatScriptFormants(),
window.offset=0.5) ## get F1 and F2
## Get all tokens of /i:/
results <- getMatches(labbcat.url, list(segment="i")) |>
appendFromPraat(
Target.segment.start, Target.segment.end, ## for the target vowel...
paste(
## ... get first 3 formants at three points during the sample ...
praatScriptFormants(c(1,2,3), c(0.25,0.5,0.75)),
## ... the mean, min, and max pitch ...
praatScriptPitch(get.mean=TRUE, get.minimum=TRUE, get.maximum=TRUE),
## ... the max intensity ...
praatScriptIntensity(),
## ... and the CoG using powers 1 and 2
praatScriptCentreOfGravity(powers=c(1.0,2.0))),
window.offset=0.5)
## Get all tokens of /s/
results <- getMatches(labbcat.url, list(segment="s")) |>
appendFromPraat(
Target.segment.start, Target.segment.end,
readLines("acousticMeasurements.praat")) ## execute a custom script loaded form a file
}
Run the code above in your browser using DataLab