3.10

x <- c(
13.3, 14.9, 15.8, 16.0,
14.5, 13.7, 13.7, 14.9,
15.3, 15.2, 15.1, 13.6,
15.3, 14.5, 13.4, 15.3,
14.3, 15.3, 14.1, 14.3,
14.8, 15.6, 14.8, 15.6,
15.2, 15.8, 14.3, 16.1,
14.5, 13.3, 14.3, 13.9,
14.6, 14.1, 16.4, 15.2,
14.1, 15.4, 16.9, 14.4,
14.3, 15.2, 14.2, 14.0,
16.1, 15.2, 16.9, 14.4,
13.1, 15.9, 14.9, 13.7,
15.5, 16.5, 15.2, 13.8,
12.6, 14.8, 14.4, 15.6,
14.6, 15.1, 15.2, 14.5,
14.3, 17.0, 14.6, 12.8,
15.4, 14.9, 16.4, 16.1,
15.2, 14.8, 14.2, 16.6,
16.8, 14.0, 15.7, 15.6
)

stem(x)

## 
##   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

hist(x,
     breaks = seq(12.5, 17.5, by = 0.5),
     main = "Distribusi Frekuensi Viskositas",
     xlab = "Viskositas",
     ylab = "Frekuensi",
     col = "lightblue",
     border = "black")

sort(x)

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

stem(sort(x), scale = 2)

## 
##   The decimal point is 1 digit(s) to the left of the |
## 
##   126 | 0
##   128 | 0
##   130 | 0
##   132 | 00
##   134 | 0
##   136 | 0000
##   138 | 00
##   140 | 00000
##   142 | 00000000
##   144 | 0000000
##   146 | 000
##   148 | 00000000
##   150 | 00
##   152 | 000000000000
##   154 | 000
##   156 | 00000
##   158 | 000
##   160 | 0000
##   162 | 
##   164 | 000
##   166 | 0
##   168 | 000
##   170 | 0

sort(x)

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

median(x)

## [1] 14.9

quantile(x, probs = c(0.25, 0.5, 0.75), type = 2)

##   25%   50%   75% 
## 14.30 14.90 15.55

quantile(x, probs = c(0.10, 0.90), type = 7)

##   10%   90% 
## 13.70 16.13