1"head.tail" <-
2function(x, hlength=4,tlength=4,digits=2) {
3  if(is.data.frame(x) | is.matrix(x) ) { if (is.matrix(x)) x <- data.frame(x)
4   ellipsis <- rep("...",dim(x)[2])
5   h <- data.frame(head(x,hlength))
6   t <- data.frame(tail(x,tlength))
7   headtail <- rbind(round(h,digits),'...' = ellipsis,round(t,digits))
8   } else {h <- head(x,hlength)
9           t <- tail(x,tlength)
10           head.tail <- rbind(h,"...       ...",t)}
11   return(head.tail)}
12