R/ds.R

In dedylesmana/dedianalytic: descriptiv statistic

#' Create histogram, boxplot, and numeric summary
#' @export
#' @param x numeric variable
ds <- function(x) {
  # 1 ron and 2 colmns
  par(mfrow = c(1,2))
  #Histogram
  hist(x, col = rainbow(30))
  #boxplot
  boxplot(x, col = 'blue')
  par(mfrow = c (1, 1))
  #Numeric summary
  data.frame(min = min(x),
             median = median(x),
             mean = mean(x),
             max = max(x),
             s d = s d(x)
						 r a n g e= m a x (x) - m i n (x))
}