Plot a grey-scale image of palatographic data.
The function plots a grey-scale image of palatographic data such that the greyness in cell r, c is in proportion to the frequency of contacts in cells of row r and columns c of all palatograms in the object passed to this function.
epggs( epgdata, gscale = 100, gridlines = TRUE, gridcol = "gray", gridlty = 1, axes = TRUE, xlab = "", ylab = "", ... )
epgdata |
An eight-columned EPG-compressed trackdata object, or an eight columned matrix of EPG-compressed trackdata, or a 3D palatographic array that is the output of palate() |
gscale |
a single valued numeric vector that defines the granularity of the greyscale. Defaults to 100. |
gridlines |
if T (default) grid lines over the palatographic image are drawn are drawn. |
gridcol |
color of grid |
gridlty |
A single-valued numeric vector that defines the linetype for plotting the grid. |
axes |
T for show axes, F for no axes |
xlab |
A character vector for the x-axis label. |
ylab |
A character vector for the y-axis label. |
... |
graphical parameters can be given as arguments to 'epggs'. |
The function plots a grey-scale image of up to 62 values arranged over an 8 x 8 grid with columns 1 and 8 unfilled for row 1. If cell row r column c is contacted for all palatograms in the object that is passed to this function, the corresponding cell is black; if none of of the cells in row r column c are contacted, then the cell is white (unfilled).
Jonathan Harrington
# greyscale image across the first two segments 'just relax' # with title epggs(coutts.epg[1:2,], main="just relax") # as above but with dotted gridlines in blue epggs(coutts.epg[1:2,], main="just relax", gridlty=2, gridcol="blue") # as the first example, but with greyscale set to 2 epggs(coutts.epg[1:2,], 2, main="just relax") # get palatograms for "S" from the polhom.epg database temp = polhom.l == "S" # greyscale image of all "S" segments at their temporal midpoint epggs(dcut(polhom.epg[temp,], 0.5, prop=TRUE)) # greyscale image of all "S" segments from their onset to offset epggs(polhom.epg[temp,]) # the same but derived from palates p <- palate(polhom.epg[temp,]) epggs(p)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.