tugas komputasi statistika pert 5

# Membuat data
JK <- c("Laki laki", "Laki laki", "Perempuan", "Perempuan",
        "Laki laki", "Perempuan", "Laki laki", "Perempuan")

SPJK <- c("Ya", "Tidak", "Ya", "Tidak",
          "Ya", "Ya", "Tidak", "Tidak")

# Membuat tabel kontingensi 2x2
tabel_2x2 <- table(JK, SPJK)

# Menampilkan tabel
tabel_2x2

##            SPJK
## JK          Tidak Ya
##   Laki laki     2  2
##   Perempuan     2  2

# Membuat data
TP <- c("SD", "SD", "SMP", "SMP",
        "SMA", "SMA", "PT", "PT",
        "SD", "SMP", "SMA", "PT")

SPJK <- c("Ya", "Tidak", "Ya", "Tidak",
          "Ya", "Tidak", "Ya", "Tidak",
          "Ya", "Ya", "Ya", "Ya")

# Membuat tabel kontingensi 4x2
tabel_4x2 <- table(TP, SPJK)

# Menampilkan tabel
tabel_4x2

##      SPJK
## TP    Tidak Ya
##   PT      1  2
##   SD      1  2
##   SMA     1  2
##   SMP     1  2