Data

Data waktu kegagalan komponen elektronik dibaca ke bawah dulu, baru ke kanan (kolom per kolom), sesuai instruksi soal.

x <- c(127,125,131,124,129,121,142,151,160,125,
       124,123,120,119,128,133,137,124,142,123,
       121,136,140,137,125,124,128,129,130,122,
       118,131,125,133,141,125,140,131,129,126)

length(x)   # jumlah data harus 40
## [1] 40
x           # tampilkan data
##  [1] 127 125 131 124 129 121 142 151 160 125 124 123 120 119 128 133 137 124 142
## [20] 123 121 136 140 137 125 124 128 129 130 122 118 131 125 133 141 125 140 131
## [39] 129 126

(a) Rata-rata dan Standar Deviasi Sampel

rata2 <- mean(x)
sd_sampel <- sd(x)

cat("Rata-rata sampel  =", round(rata2, 3), "jam\n")
## Rata-rata sampel  = 129.975 jam
cat("Standar deviasi   =", round(sd_sampel, 3), "jam\n")
## Standar deviasi   = 8.914 jam

Interpretasi: Rata-rata waktu kegagalan komponen elektronik adalah sekitar 129.98 jam, dengan standar deviasi 8.91 jam yang menunjukkan seberapa besar variasi/sebaran data terhadap rata-ratanya.

(b) Histogram

hist(x,
     breaks = "Sturges",
     col = "skyblue",
     border = "white",
     main = "Histogram Waktu Kegagalan Komponen Elektronik",
     xlab = "Waktu Kegagalan (jam)",
     ylab = "Frekuensi")

(c) Stem-and-Leaf Plot

stem(x)
## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   11 | 89
##   12 | 0112334444
##   12 | 555556788999
##   13 | 011133
##   13 | 677
##   14 | 00122
##   14 | 
##   15 | 1
##   15 | 
##   16 | 0

(d) Median dan Kuartil (Q1, Q3)

median_val <- median(x)
q1 <- quantile(x, 0.25, type = 6)
q3 <- quantile(x, 0.75, type = 6)

cat("Median =", median_val, "jam\n")
## Median = 128 jam
cat("Q1 (kuartil bawah) =", q1, "jam\n")
## Q1 (kuartil bawah) = 124 jam
cat("Q3 (kuartil atas)  =", q3, "jam\n")
## Q3 (kuartil atas)  = 135.25 jam

Ringkasan Hasil

Statistik Nilai
Rata-rata (x̄) 129.975 jam
Standar deviasi (s) 8.914 jam
Median 128 jam
Q1 (kuartil bawah) 124 jam
Q3 (kuartil atas) 135.25 jam