Distribusi Sampling

Import Data

library(readxl)

data <- read_excel(file.choose())
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

MINGGU 6 - Distribusi Sampling

set.seed(123)

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

mean_n10 <- replicate(B, mean(sample(data$nilai_uts, n1, replace=TRUE)))
mean_n30 <- replicate(B, mean(sample(data$nilai_uts, 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")

MINGGU 7 - Estimasi Parameter

mean(data$nilai_uts)

## [1] 83.6

t.test(data$nilai_uts, conf.level=0.95)$conf.int

## [1] 81.07042 86.12958
## attr(,"conf.level")
## [1] 0.95