2-Ukuran pemusatan, penyebaran, dan posisi data

Input Data

Data diinput dari Mircosoft Excel dengan syntax sebagai berikut:

library(readxl)
setwd("C:/Users/mifta/OneDrive - untirta.ac.id/UNTIRTA/STATISTIKA/Semester 2/Probabilitas dan Statistika/Praktikum")
data <- read_excel("data_tren_penggunaan_ai.xlsx")
head(data)

## # A tibble: 6 × 8
##   Industri   `Jenis Pekerjaan` `Tingkat Penggunaan AI` `Respon terhadap AI`
##   <chr>      <chr>             <chr>                   <chr>               
## 1 Manufaktur Software Engineer Rendah                  Negatif             
## 2 Keuangan   Analis Keuangan   Tinggi                  Positif             
## 3 Teknologi  Data Scientist    Sedang                  Negatif             
## 4 Teknologi  Dosen             Tinggi                  Positif             
## 5 Teknologi  Analis Keuangan   Rendah                  Positif             
## 6 Pendidikan Analis Keuangan   Sedang                  Positif             
## # ℹ 4 more variables: `Lama Bekerja (tahun)` <dbl>,
## #   `Frekuensi Penggunaan AI per Minggu` <dbl>,
## #   `Efisiensi Kerja Sebelum AI` <dbl>, `Efisiensi Kerja Sesudah AI` <dbl>

Ukuran Pemusatan

1. Menghitung Rata-Rata (mean)

Berikut terlampir syntax untuk menghitung rata-rata (mean) lama bekerja dari responden

mean(data$`Lama Bekerja (tahun)`)

## [1] 12.93333

2. Menghitung Median

Berikut terlampir syntax untuk menghitung median lama bekerja dari responden

median(data$`Lama Bekerja (tahun)`)

## [1] 11.5

3. Menghitung Modus

Berikut terlampir syntax untuk menghitung modus lama bekerja dari responden

modus <- function(x) {
  uniqx <- unique(x)
  uniqx[which.max(tabulate(match(x, uniqx)))]
}

modus(data$`Lama Bekerja (tahun)`)

## [1] 1

Menampilkan ringkasan data (Statistik 5 Serangkai)

Berikut terlampir syntax untuk menghitung Statistik 5 Serangkai pada variabel lama bekerja

summary(data$`Lama Bekerja (tahun)`)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    4.25   11.50   12.93   21.00   29.00

Ukuran Penyebaran data

1. Menghitung Keragaman Data

Berikut terlampir syntax untuk menghitung keragaman data pada variabel lama bekerja

var(data$`Lama Bekerja (tahun)`)

## [1] 80.06437

2. Menghitung standar deviasi dari data

Berikut terlampir syntax untuk menghitung Standar Deviasi data pada variabel lama bekerja

sd(data$`Lama Bekerja (tahun)`)

## [1] 8.947869