R/ds.R

In Jun1422/learn_R_package:

#'Creat histogram, boxplot and summary
#'@export
#'@param x numeric variable
ds <- function(x){
  # 1 row and 2 colmns
  par(mfrow = c(1,2))
  #Histogram
  hist(x,col+rainbow(30))
  #Box plot
  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))
}