tugas membuat tabel kontungensi

Tabel kontingensi 2x2

# Tabel kontingensi 2x2
tabel_jk <- matrix(c(30, 20,   # kolom Ya: Laki-laki, Perempuan
                     15, 35),  # kolom Tidak: Laki-laki, Perempuan
                   nrow = 2, byrow = FALSE,
                   dimnames = list(JK   = c("Laki-laki", "Perempuan"),
                                   SPJK = c("Ya", "Tidak")))

tabel_jk <- as.table(tabel_jk)
tabel_jk

##            SPJK
## JK          Ya Tidak
##   Laki-laki 30    15
##   Perempuan 20    35

addmargins(tabel_jk)# Uji chi-square (opsional)

##            SPJK
## JK           Ya Tidak Sum
##   Laki-laki  30    15  45
##   Perempuan  20    35  55
##   Sum        50    50 100

chisq.test(tabel_jk)

## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  tabel_jk
## X-squared = 7.9192, df = 1, p-value = 0.004891