data <- matrix(c(7,1,2,5), nrow = 2, dimnames = list(c("Obat A", "Obat B"),c("1","0")))
data
## 1 0
## Obat A 7 2
## Obat B 1 5
# untuk uji hipotesis dua arah
fisher.test(data)
##
## Fisher's Exact Test for Count Data
##
## data: data
## p-value = 0.04056
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.8646648 934.0087368
## sample estimates:
## odds ratio
## 13.59412
# untuk uji satu arah
fisher.test(data, alternative = "greater")
##
## Fisher's Exact Test for Count Data
##
## data: data
## p-value = 0.03497
## alternative hypothesis: true odds ratio is greater than 1
## 95 percent confidence interval:
## 1.179718 Inf
## sample estimates:
## odds ratio
## 13.59412
- Berdasarkan hasil SNMPTN 2021 yang diperoleh dari dinas pendidikan
kota jaya bahwa terdapat 2 sekolah dengan tingkat kelulusan SNMPTN
tertinggi dengan data sebagai berikut: dengan tingkat signifikansi 5%,
apakah tingkat kelulusan SNMPTN di Sekolah Terpadu dan Sekolah Abadi
sama?
- menentukan hipotesis H0 : tingkat kelulusan SMNPTN di sekolah
terpadu sama dengan sekolah abadi H1 : tingkat kelulusan SMNPTN di
sekolah terpadu berbeda dengan sekolah abadi alpha = 5%
snmptn <- matrix(c(41, 36 , 10, 13), nrow = 2, dimnames = list("sekolah"<- c("Terpadu","Abadi"),"status" <- c("lolos","tidak lolos")))
snmptn
## lolos tidak lolos
## Terpadu 41 10
## Abadi 36 13
chisq.test(snmptn)
##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: snmptn
## X-squared = 0.34184, df = 1, p-value = 0.5588