Import Data

library(readxl)

# Import Data
library(readxl)

data <- read_excel("~/Downloads/dataset_akademik.xlsx")
head(data)
## # A tibble: 6 × 5
##      id jam_belajar_per_minggu kehadiran_persen nilai_uts nilai_uas
##   <dbl>                  <dbl>            <dbl>     <dbl>     <dbl>
## 1     1                   11.5               88        83        93
## 2     2                    9.6               82        82        86
## 3     3                   11.9               80        89        86
## 4     4                   14.6               90        96       100
## 5     5                    9.3               93        85        88
## 6     6                    9.3               92        88        81

Distribusi Sampling Nilai UAS

set.seed(123)

B <- 2000
n1 <- 10
n2 <- 30

mean_n10 <- replicate(B, mean(sample(data$nilai_uas, n1, replace=TRUE)))
mean_n30 <- replicate(B, mean(sample(data$nilai_uas, n2, replace=TRUE)))

hist(mean_n10, main="Distribusi Sampling Mean (n=10)", xlab="Mean Sampel")

hist(mean_n30, main="Distribusi Sampling Mean (n=30)", xlab="Mean Sampel")

# Estimasi Parameter Nilai UAS

mean(data$nilai_uas)
## [1] 83.86
t.test(data$nilai_uas, conf.level=0.95)$conf.int
## [1] 80.87048 86.84952
## attr(,"conf.level")
## [1] 0.95

Berdasarkan hasil estimasi, rata-rata nilai UAS siswa adalah sebesar 83,86. Dengan tingkat kepercayaan 95%, rata-rata nilai UAS populasi diperkirakan berada pada interval 80,87 hingga 86,85.

Hal ini menunjukkan bahwa estimasi parameter populasi dapat ditentukan menggunakan data sampel dengan tingkat keyakinan tertentu.