Tugas Membuat Tabel Kontingensi

# Tabel kontingensi 2x2
# Baris = Jenis Kelamin (JK)
# Kolom = SPJK

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

# Memberikan nama baris dan kolom
rownames(tabel_2x2) <- c("Laki-laki", "Perempuan")
colnames(tabel_2x2) <- c("Ya", "Tidak")

# Menampilkan tabel
tabel_2x2

##           Ya Tidak
## Laki-laki 20    10
## Perempuan 15    15

# Tabel kontingensi 4x2
# Baris = Tingkat Pendidikan (TP)
# Kolom = SPJK

tabel_4x2 <- matrix(
  c(5, 3,
    8, 4,
    12, 6,
    15, 7),
  nrow = 4,
  byrow = TRUE
)

# Memberikan nama baris dan kolom
rownames(tabel_4x2) <- c("SD", "SMP", "SMA", "PT")
colnames(tabel_4x2) <- c("Ya", "Tidak")

# Menampilkan tabel
tabel_4x2

##     Ya Tidak
## SD   5     3
## SMP  8     4
## SMA 12     6
## PT  15     7