1. STUDI KASUS

Kelompok kami meneliti jam kedatangan mahasiswa antara pukul 07.00-08.00 pada 3 hari berbeda senin, rabu, dan jumat. data dibangkitkan dari distribusi uniform (min=7, max=8) dengan 30 data perhari.

  1. DATASET

bangkitkan 30 data sesuai jam kedatangan mahasiswa (07.00-08.00)

set.seed(123)
senin <- runif(n=30, min = 7, max = 8)
rabu  <- runif(n=30, min = 7, max = 8)
jumat <- runif(n=30, min = 7, max = 8)

#gabungkan data

hari  <- factor(rep(c("senin", "rabu", "jumat"), each=30))
waktu <- c(senin, rabu, jumat)
df    <- data.frame(Hari=hari, Waktu=waktu)
head(df, 6)
  1. STATISTIK DESKRIPTIF

#Hitung mean, median, standar deviasi, varian untuk tiap hari

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
df %>% group_by(Hari) %>%
  summarise(
    n = n(),
    Mean = mean(Waktu),
    Median = median(Waktu),
    SD = sd(Waktu),
    Var = var(Waktu)
  )
#Visualisasi (boxplot)
boxplot(Waktu ~ Hari, data=df,
        main="Boxplot Jam Kedatangan Mahasiswa",
        xlab = "Hari", ylab = "Jam Kedatangan (07.00-08.00)")

4. UJI HIPOTESIS 2 POPULASI

t.test(senin, jumat, alternative = "two.sided")
## 
##  Welch Two Sample t-test
## 
## data:  senin and jumat
## t = 0.80973, df = 57.916, p-value = 0.4214
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.08801776  0.20759422
## sample estimates:
## mean of x mean of y 
##  7.572400  7.512612
  1. ANOVA (3 POPULASI:SENIN, RABU, JUMAT)
anova_model <- aov(Waktu ~ Hari, data = df )
summary(anova_model)
##             Df Sum Sq Mean Sq F value Pr(>F)
## Hari         2  0.269 0.13469   1.632  0.202
## Residuals   87  7.181 0.08255
#visualisasi
boxplot(Waktu ~ Hari, data = df,
        main = "Hari", ylab = "Jam Kedatangan (07.00-08.00)",
        col = c("skyblue", "lightgreen", "salmon"))

6. INTERPRETASI deskriptif : rata-rata kedatangan tiap hari sekitar 7.5 jam, sesuai sifat distribusi uniform (tengah antara 7-8).

uji senin vs jumat (t-test) : p-value > 0.05 -> gagal tolak H0, tidak ada bukti beda signifikan.

ANOVA (3 hari) : p-value > 0.05 -> gagal tolak H0, rata-rata kedatangan pada senin, rabu, jumat tidak berbeda signifikan

kesimpulan : mahasiswa cenderung datang acak dalam rentang 07.00-08.00 tanpa perbedaan mencolok antar hari