#PRAAT SCRIPT COMPUTE F0 STATISTISC CODE#

1.2 For developers and people interested in the source code.ListFiles <- list.files(path = inputFolder, pattern = '\.PitchTier$', ignore.case = TRUE) # 't' 'maxnFormants' 'frame' f$nx # get number of frames # 80 f$t # time instance of the 4th frame # 0.04491355 f$frame] # 4th frame: formants # $intensity f <- formant.read('demo/maminka.Formant') In a text format in Praat before processing in rPraat). Binaryįormats are not supported (in such a case, please open and save the file PitchTier, Pitch, IntensityTier, Formant and Collection files. Please note: rPraat can read only Text formats of TextGrid, Read, write and plot Formant object with bandwidths and intensityĪ Formant object represents formant frequencies and bandwidths as a Tg.write(tgNew, 'demo/ex_output.TextGrid') TgNew <- tg.insertPoint(tgNew, tierInd = 'pointTierLast', time = 3, label = 'point') TgNew <- tg.insertNewPointTier(tgNew, newInd = Inf, newTierName = 'pointTierLast') TgNew <- tg.insertPoint(tgNew, tierInd = 2, time = 4, label = 'click') TgNew <- tg.insertPoint(tgNew, tierInd = 2, time = 2, label = 'click') TgNew <- tg.insertNewPointTier(tgNew, newInd = 2, newTierName = 'click') TgNew <- tg.insertInterval(tgNew, tierInd = 'word_last', 2, 3, 'ABC') TgNew <- tg.insertNewIntervalTier(tgNew, newInd = Inf, 'word_last') # the last tier (at this moment) TgNew <- tg.insertInterval(tgNew, tierInd = 1, 4, 4.8, 'world')

TgNew <- tg.insertInterval(tgNew, tierInd = 1, tStart = 2, tEnd = 3.5, 'hello') TgNew <- tg.insertNewIntervalTier(tgNew, newInd = 1, 'word') # the first tier TgNew <- tg.createNewTextGrid(tMin = 0, tMax = 5) Tg <- tg.removeIntervalBothBoundaries(tg, 'WORD2', ind) Ind <- tg.getIntervalIndexAtTime(tg, 'WORD2', time = 2.3) Tg <- tg.insertInterval(tg, 'WORD2', tStart = 0.9, tEnd = 1.7, label = 'NEW LAB') Tg <- tg.setLabel(tg, 'WORD2', index = 5, newLabel = '') Tg <- tg.removeIntervalBothBoundaries(tg, 'WORD2', index = 6) Tg <- tg.duplicateTier(tg, 'word', newInd = 2, newTierName = 'WORD2') Tg$phoneme$t <- tg$phoneme$t # remove points 30:40 Tg <- tg.insertPoint(tg, 'phoneme', time = 1.6, label = 'NEW') Tg <- tg.setLabel(tg, 'phoneme', ind, newLabel = '!Q!') Ind <- tg.getPointIndexNearestTime(tg, 'phoneme', time = 1.5) T <- tg.findLabels(tg, 'word', c('ti', 'řeknu', 'co'), returnTime = TRUE)įor all functions, see help ?functionName for itsĭescription and example of use. # 3 4 5 length(i) # 1 result found # 1 i] # indices of segments in the first result # 3 4 5 length(i]) # length of the first (and only) result (number of segments) # 3 i] # index of the third segment in the first result # 5 tg$word$label]] # all labels in the fragment # 'ti' 'řeknu' 'co' # get initial and final time of the fragment # 3.023601 3.106315 length(t$t1) # 2 results found (Note: length(t$t1) = length(t$t2) = number of results) # 2 t$t2 - t$t1 # duration of the first fragment # 0.1121934 t$t2 - t$t1 # duration of the second fragment # 0.08271394 # find fragments with successive labels 'ti' 'řeknu' 'co' in 'word' tier (Interval tier) T # 2 results and their initial (t1) and final (t2) time # $t1 T <- tg.findLabels(tg, 'phone', c('?', 'a'), returnTime = TRUE) # and return initial and final time of these fragments # 41 42 length(i) # 2 results found # 2 i] # indices of the first result # 39 40 i] # indices of the second result # 41 42 tg$phone$label]] # '?' 'a' tg$phone$label]] # '?' 'a' tg$phone$label # '?' 'a' '?' 'a' # find fragments with successive labels '?' 'a' in 'phone' tier # 42 length(i) # how many results? # 4 i] # index of the first result # 8 tg$phoneme$label # 'n' 'n' 'n' 'n' # find fragments with successive labels '?' 'a' in 'phone' tear (Interval tier) # find label 'n' in phoneme tier (Point tier) Find labels in TextGrid tg <- tg.read('demo/H.TextGrid')

Praat script compute f0 statistisc