verifikasi_MeanMedianModus

#data menit penggunaan harian 15 pengguna EcoTrack
data <- c(22, 25, 19, 30, 24, 21, 45, 23, 20, 26, 24, 22, 18, 27, 23)

mean (data)

## [1] 24.6

median (data)

## [1] 23

#R tidak punya fungsi bawaan
modus <- function (x) {
  u <- unique (x)
  u [which.max(tabulate(match(x, u)))]
}
modus(data)

## [1] 22