Praat scripts.

I'm sorry, this site is still under construction.

Editor scripts

(Editor scripts need to be opened via the menu of a TextGrid editor: File > Open editor script... After that you make them permanently available via File > Add to menu... in the script editor)

Zoom in TextGrid by h:mm:ss-format (Go to minute...)

form



Remove all boundaries in selection

Remove all points in selection



Praat scripts

Waterfall plot

TextGrid based F0 measurement

 R-code I find particularly useful

copy & paste data into table from clipboard

###### on MAC OSX
read.table(pipe("pbpaste"),header=TRUE,quote="",sep="\t")

###### otherwise only on PC
read.table(choose.files(),comment.char="",header=TRUE,quote="",sep="\t")

delete variable (delete column):

# exclude 3rd and 5th variable
newdata <- mydata[c(-3,-5)]
# delete variables v3 and v5
mydata$v3 <- mydata$v5 <- NULL

subsetting (conditions):

ebi.p <- ebi.p[which(ebi.p$vowel=='u' & ebi.p$sF1 < 500),]

selecting columns by name:

#gives all rows
mydata[,c('index','start','end')]
#OR
> cdata[1:3,c('context','chimpname','f0md')]
context chimpname f0md
1 R-GM Athos 281
2 GM-C Richelieu 1726
3 GM-C Richelieu 1677

find first exact match in vector

> match("AG",cdata$context)
[1] 193

find all matches in vector and dataframe

> grep("AG",cdata$context)
[1] 187 193 194 214 251 252
> cdata$context[187]
[1] F-AG
46 Levels: AG AL AL-SH ... F F-AG F-BEG ...
> cdata$context[193]
[1] AG
...
#in a dataframe
cdata[grep("ag", cdata$context, ignore.case=T),]
#returns entire rows



other stuff

  • TIPA cheat sheet (draft version 0.1 ) - Sorry, the .TEX-file got lost!
  • Table musical note-hertz-cent ( *.xls )