R/my_summary.R

In jknowles/ggeffects: Understanding Regression Effects Graphically

my_summary<-function(x,...){
  s<-list(mean(x,na.rm=TRUE),
          sd(x,na.rm=TRUE),
          min(x,na.rm=TRUE),
          as.numeric(quantile(x,.25,na.rm=TRUE)),
          as.numeric(quantile(x,.5,na.rm=TRUE)),
          as.numeric(quantile(x,.75,na.rm=TRUE)),
          max(x,na.rm=TRUE))
  names(s)<-c("mean","sd","Min","1Q","Median","3Q","Max")
  unlist(s)
}