R/ck.R

In fzwaeustc/pcrfn: Peng's Collection of R Functions at Nielsen

ck <-
function(data, showrow=1:5){
    if (class(data)== "data.frame") {
      list(Data_Class=class(data),
           Dimension=dim(data),
           col_class=sapply(data, class), 
           col_mode=sapply(data, mode),
           #Summary=summary(data),
           First5=data[showrow,1:min(10, ncol(data))])
    } else {
      cat("shown by str():\n")
      str(data)
      cat("\n")
      list(class=class(data), mode=mode(data), 
           type=typeof(data),attri=attributes(data))
    }
  }