R/prj.R

In mohitdutta012/prjt: Project of R

#' create histogram, boxplot and numeric summary
#' @export
#' @param x numeric variable
prj<-function(x){
  # 1 row and 2 colmns
  par(mfrow = c(1,2))
  #Histrogram
  hist(x, col= rainbow(30))
  #boxplot
  boxplot(x, col = 'green')
  par(mfrow = c(1,1))
  #numeric  Summary
  data.frame(min = min(x),
             median = median(x),
             mean = mean(x),
             max = max(x),
            sd = sd(x),
             range = max(x)-min(x))
}