Tugas4_Statistika

Data

library(e1071)

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

Mean, Median, dan Modus

mean(data_ecotrack)

## [1] 24.6

median(data_ecotrack)

## [1] 23

frekuensi <- table(data_ecotrack)
as.numeric(names(frekuensi[frekuensi == max(frekuensi)]))

## [1] 22 23 24

Kuartil dan IQR

quantile(data_ecotrack)

##   0%  25%  50%  75% 100% 
## 18.0 21.5 23.0 25.5 45.0

IQR(data_ecotrack)

## [1] 4

Varians dan Standar Deviasi

var(data_ecotrack)

## [1] 41.54286

sd(data_ecotrack)

## [1] 6.445375

Skewness Pearson

mean_data <- mean(data_ecotrack)
median_data <- median(data_ecotrack)
sd_data <- sd(data_ecotrack)

skewness_pearson <- 3 *
  (mean_data - median_data) / sd_data

skewness_pearson

## [1] 0.7447201

Skewness dengan e1071

library(e1071)

skewness(data_ecotrack, type = 1)

## [1] 2.212573

skewness(data_ecotrack, type = 2)

## [1] 2.466403

skewness(data_ecotrack, type = 3)

## [1] 1.995046

Grafik

hist(
  data_ecotrack,
  main = "Histogram EcoTrack",
  xlab = "Menit penggunaan",
  col = "lightblue"
)

boxplot(
  data_ecotrack,
  main = "Boxplot EcoTrack",
  ylab = "Menit penggunaan",
  col = "lightgreen"
)