Tugas Statistika 4

#====================
#Input Data EcoTrack
#====================

#mencatat menit penggunaan harian dari 15 pengguna "EcoTrack" dalam 1 Minggu
x <- c(22, 25, 19, 30, 24, 21, 45, 23, 20, 26, 24, 22, 18, 27, 23)
#Mengurutkan data dari terkecil-terbesar
x <- sort(x)
x

##  [1] 18 19 20 21 22 22 23 23 24 24 25 26 27 30 45

#===============================
#Menghitung Mean, Median, Modus
#===============================

#Mean (rata-rata)
mean (x)

## [1] 24.6

#Median (Nilai Tengah)
median (x)

## [1] 23

#Fungsi Manual untuk Modus
modus <- function(v){
  uniqv <- unique(v)
  tab <- tabulate(match(v, uniqv))
  sort(uniqv[tab == max(tab)])}
#Menjalankan fungsi modus pada data x
modus(x)

## [1] 22 23 24

#========================
#Soal 2 = Q1, Q3 dan IQR
#========================

#Menghitung kuartil 1 (25%) dan kuartil 3 (75%) menggunakan type=6
quantile(x, probs = c(0.25, 0.75), type = 7)

##  25%  75% 
## 21.5 25.5

#Menhitung Jangkauan Antarkuartil (IQR)
IQR(x, type = 7)

## [1] 4

#=======================================
#soal no 3 = Varians dan Standar Deviasi
#=======================================

#Menghitung varians sampel
var(x)

## [1] 41.54286

#Menghitung Standar Deviasi sampel
sd(x)

## [1] 6.445375

#=====================
#soal no 4 = Skewness
#=====================

library(moments)
#Menghitung Skewness 
skewness(x)

## [1] 2.212573