R/print.TextGridIntervalTier.R

Defines functions print.TextGridIntervalTier

print.TextGridIntervalTier <- function(x) {
  summary(x)
    xminvals <- sapply(x, function(y) {as.double(y$xmin)})
    xmaxvals <- sapply(x, function(y) {as.double(y$xmax)})
    textvals <- sapply(x, function(y) {y$text})
  itf <- data.frame(xminvals, xmaxvals, textvals)
  names(itf) <- c("Start Point:", "End Point:", "Text:")
  print(itf)
}
jpellman/textgridR documentation built on July 26, 2017, 6:05 p.m.