Tabel Kontingensi

# Tabel Kontingensi 2 x 2
tabel_2x2 <- matrix(
  c(18, 12,
    10, 20),
  nrow = 2,
  byrow = TRUE
)

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

tabel_2x2

##            SPJK
## JK          Ya Tidak
##   Laki-laki 18    12
##   Perempuan 10    20

# Tabel Kontingensi 4 x 2
tabel_4x2 <- matrix(
  c(5, 10,
    8, 12,
    15, 20,
    10, 20),
  nrow = 4,
  byrow = TRUE
)

dimnames(tabel_4x2) <- list(
  TP = c("SD", "SMP", "SMA", "PT"),
  SPJK = c("Ya", "Tidak")
)

tabel_4x2

##      SPJK
## TP    Ya Tidak
##   SD   5    10
##   SMP  8    12
##   SMA 15    20
##   PT  10    20