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