Tugas_statistika_4

  data <- c(22, 25, 19, 30, 24, 21, 45, 23, 20, 26, 24, 22, 18, 27, 23)

##Mencari mean,median,dan modus dari data "Ecotrack"
  mean(data)

## [1] 24.6

  median(data)

## [1] 23

  table(data)

## data
## 18 19 20 21 22 23 24 25 26 27 30 45 
##  1  1  1  1  2  2  2  1  1  1  1  1

##Menghitung Q1 dan Q3, lalu interpretasikan IQSnya
  quantile(data, probs = c(0.25, 0.5, 0.75), type = 6)

## 25% 50% 75% 
##  21  23  26

  IQR(data, type = 6)

## [1] 5

  ##interpretasi IQR : Nilai IQR adalah 5 menit. Yang artinya dari nilai itu menunjukkan bahwa 50% data waktu penggunaan "Ecotrack" berada pada rentang waktu 21 sampai 26 menit.
  
##Menghitung varians dan standar deviasi
  var(data)

## [1] 41.54286

  sd(data)

## [1] 6.445375

  cv <- sd(data) / mean(data) * 100
  cv

## [1] 26.20071

##data ini tergolong data bervariasi rendah 

##Menghitung Skewness dan kurtosis
  library(moments)
  skewness(data)

## [1] 2.212573

  ##hasil nilai skewness yaitu positif jadi arah kemencengan ke arah kanan