Tabel Kontingensi

# 1. Membuat tabel kontingensi 2x2
tabel_kontingensi <- matrix(
  c(18, 12,   # Laki-laki: 18 Ya, 12 Tidak
    7,  23),  # Perempuan: 7 Ya, 23 Tidak
  nrow = 2,
  ncol = 2,
  byrow = TRUE,
  dimnames = list(
    "Jenis_Kelamin" = c("Laki-laki", "Perempuan"),
    "Status_Penyakit_Jantung_Koroner" = c("Ya", "Tidak")
  )
)

# 2. Konversi ke bentuk objek tabel
tabel_kontingensi <- as.table(tabel_kontingensi)

# 3. Tampilkan tabel kontingensi
print(tabel_kontingensi)

##              Status_Penyakit_Jantung_Koroner
## Jenis_Kelamin Ya Tidak
##     Laki-laki 18    12
##     Perempuan  7    23

# (Opsional) Tampilkan tabel beserta total baris dan kolom
addmargins(tabel_kontingensi)

##              Status_Penyakit_Jantung_Koroner
## Jenis_Kelamin Ya Tidak Sum
##     Laki-laki 18    12  30
##     Perempuan  7    23  30
##     Sum       25    35  60

SPJK <- matrix(c(15, 10, 20, 5),
               byrow = TRUE,
               nrow = 2)

dimnames(SPJK) <- list(
  JenisKelamin = c("Laki-laki", "Perempuan"),
  SPJK = c("Ya", "Tidak")
)

SPJK

##             SPJK
## JenisKelamin Ya Tidak
##    Laki-laki 15    10
##    Perempuan 20     5

# Tabel Kontingensi 4x2
SPJK <- matrix(c(10,5,15,10,20,8,25,12),
               byrow=T, nrow=4)

dimnames(SPJK) <-
  list(TingkatPendidikan=c("SD","SMP","SMA","Universitas"),
       SPJK=c("Ya","Tidak"))

SPJK

##                  SPJK
## TingkatPendidikan Ya Tidak
##       SD          10     5
##       SMP         15    10
##       SMA         20     8
##       Universitas 25    12