1barplot.zoo <- function(height, names.arg = NULL, ...)
2{
3  x <- coredata(height)
4  if(!is.null(dim(x))) x <- t(x)
5  if(is.null(names.arg)) names.arg <- index2char(index(height))
6  barplot(x, names.arg = names.arg, ...)
7}
8
9boxplot.zoo <- function(x, ...) boxplot(coredata(x), ...)
10