Input data

library(readxl)
## Warning: package 'readxl' was built under R version 4.2.3
lat3 <- read_excel("C:/Users/Acer/OneDrive/Documents/syifa khairunnisa/sem6/msr/lat3msr.xlsx")
str(lat3)
## tibble [32 × 2] (S3: tbl_df/tbl/data.frame)
##  $ Judgement: num [1:32] 62.6 35.9 55.4 66.4 35 ...
##  $ Random   : num [1:32] 31.4 32.1 51.9 24.7 43.3 ...
head(lat3)
## # A tibble: 6 × 2
##   Judgement Random
##       <dbl>  <dbl>
## 1      62.6   31.4
## 2      35.8   32.1
## 3      55.4   51.9
## 4      66.4   24.7
## 5      35.0   43.3
## 6      37.2   29.4

Menghitung rata-rata (x bar)

x bar ‘Judgement’

xb_judgement <- mean(lat3$Judgement) 
xb_judgement
## [1] 45.56813

x bar ‘Random’

xb_random <- mean(lat3$Random) 
xb_random
## [1] 37.22313

Menghitung standar deviasi (S)

S ‘Judgement’

S_judgement <- sd(lat3$Judgement) 
S_judgement
## [1] 13.68566

S ‘Random’

S_random <- sd(lat3$Random) 
S_random
## [1] 10.26915

Output

output <- data.frame(
  Perhitungan = c("x bar", "S"),
  Judgment = c(xb_judgement, S_judgement),
  Random = c(xb_random, S_random)
)
output
##   Perhitungan Judgment   Random
## 1       x bar 45.56813 37.22313
## 2           S 13.68566 10.26915

Dari 32 kelas yang diberikan, diperoleh rata-rata (x bar) pemilihan 10 kelereng menggunakan penilaian subjektif (judgment) sebesar 45.58219 dengan standar deviasi (S) sebesar 13.65242. Sementara itu pemilihan 10 kelereng secara acak menggunakan tabel bilangan acak (random) memiliki nilai rata-rata (x bar) sebesar 37.22313 dengan standar deviasi (S) sebesar 10.26915. Terlihat bahwa standar deviasi yang diperoleh dari pemilihan acak (random) lebih kecil. Standar deviasi yang lebih kecil menunjukkan bahwa data cenderung lebih dekat dengan rata-ratanya. Standar deviasi yang lebih kecil juga menunjukkan bahwa prediksi lebih konsisten atau akurat.