Tugas 1 Alzyra Latifa

#JAWABAN NOMOR 3.8.

#Input Data
failure_time <- 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
)
print(failure_time)

##  [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. Menghitung Rata-rata (Mean) dan Standar Deviasi

mean <- mean(failure_time)
print(mean)

## [1] 129.975

standar_deviasi <- sd(failure_time)
print(standar_deviasi)

## [1] 8.914084

#b. Menampilkan visualisasi Histogram

hist(failure_time,
     main = "Histogram of Electronic Component Failure Time",
     xlab = "Time (Hours)",
     ylab = "Frequency",
     col = "purple",
     border = "black")

#c. Menampilkan Diagram Batang-Daun

stem(failure_time)

## 
##   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. Menghitung Median, Q1, dan Q3

#Menghitung Median
median(failure_time)

## [1] 128

#Menghitung Q1 dan Q3
quantile(failure_time, probs = c(0.25, 0.75))

##    25%    75% 
## 124.00 133.75

#JAWABAN NOMOR 3.10.

#Input Data
Viscosity <- c(
  13.3,14.5,15.3,15.3,14.3,14.8,15.2,14.5,14.6,14.1,14.3,16.1,13.1,15.5,12.6,14.6,14.3,15.4,15.2,16.8,
  14.9,13.7,15.2,14.5,15.3,15.6,15.8,13.3,14.1,15.4,15.2,15.2,15.9,16.5,14.8,15.1,17,14.9,14.8,14,
  15.8,13.7,15.1,13.4,14.1,14.8,14.3,14.3,16.4,16.9,14.2,16.9,14.9,15.2,14.4,15.2,14.6,16.4,14.2,15.7,
  16,14.9,13.6,15.3,14.3,15.6,16.1,13.9,15.2,14.4,14,14.4,13.7,13.8,15.6,14.5,12.8,16.1,16.6,15.6
)
print(Viscosity)

##  [1] 13.3 14.5 15.3 15.3 14.3 14.8 15.2 14.5 14.6 14.1 14.3 16.1 13.1 15.5 12.6
## [16] 14.6 14.3 15.4 15.2 16.8 14.9 13.7 15.2 14.5 15.3 15.6 15.8 13.3 14.1 15.4
## [31] 15.2 15.2 15.9 16.5 14.8 15.1 17.0 14.9 14.8 14.0 15.8 13.7 15.1 13.4 14.1
## [46] 14.8 14.3 14.3 16.4 16.9 14.2 16.9 14.9 15.2 14.4 15.2 14.6 16.4 14.2 15.7
## [61] 16.0 14.9 13.6 15.3 14.3 15.6 16.1 13.9 15.2 14.4 14.0 14.4 13.7 13.8 15.6
## [76] 14.5 12.8 16.1 16.6 15.6

#a. Menampilkan Diagram Batang-Daun

stem(Viscosity)

## 
##   The decimal point is at the |
## 
##   12 | 68
##   13 | 1334
##   13 | 677789
##   14 | 0011122333333444
##   14 | 555566688889999
##   15 | 1122222222333344
##   15 | 566667889
##   16 | 011144
##   16 | 56899
##   17 | 0

#b. Menampilkan visualisasi Histogram

hist(Viscosity,
     main = "Histogram of Viscosity",
     xlab = "Viscosity",
     ylab = "Frecuency",
     col = "blue",
     border = "black")

#c. Menghitung Median, Q1, dan Q3

#Menghitung median
median(Viscosity)

## [1] 14.9

#Menghitung Q1 dan Q3
quantile(Viscosity, probs = c(0.25, 0.75))

##    25%    75% 
## 14.300 15.525

#d. Menghitung Persentil ke-10 dan Persentil ke-90

quantile(Viscosity, probs = c(0.1, 0.9))

##   10%   90% 
## 13.70 16.13