summary.TextGridIntervalTier <- function(x){
cat("IntervalTier Name: ")
cat(attributes(x)$name)
cat("\n")
cat("IntervalTier Start Point: ")
cat(attributes(x)$xmin)
cat("\n")
cat("IntervalTier End Point: ")
cat(attributes(x)$xmax)
cat("\n")
cat("\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.