metstat prak [1]

# Uji Independensi Chi Square

Terapi <- matrix(c(82,18,68,32), byrow=T, nrow=2) #iniisitabelkontingensi 

dimnames(Terapi) <-
list(Kelompok=c("I","II"), #iidaniberartiduajenisterapi
     StatusPenyakit=c("Sembuh","Tidak Sembuh")) #duakategorikesembuhan

addmargins(Terapi) 

##         StatusPenyakit
## Kelompok Sembuh Tidak Sembuh Sum
##      I       82           18 100
##      II      68           32 100
##      Sum    150           50 200

chisq.test(Terapi)

## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  Terapi
## X-squared = 4.5067, df = 1, p-value = 0.03376

# Koefisien Kontingensi

N <- sum(Terapi)
Terapi <- matrix(c(82,18,68,32), byrow=T, nrow=2)
dimnames(Terapi) <-
  list(Kelompok=c("I","II"),
       StatusPenyakit=c("Sembuh","Tidak Sembuh"))

addmargins(Terapi)

##         StatusPenyakit
## Kelompok Sembuh Tidak Sembuh Sum
##      I       82           18 100
##      II      68           32 100
##      Sum    150           50 200

chisq.test(Terapi)

## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  Terapi
## X-squared = 4.5067, df = 1, p-value = 0.03376

# Koefisien Kontingensi

N <- sum(Terapi)

xsquared <- 4.5067

koefisienkontingensi <- sqrt((xsquared)/(N+xsquared))
koefisienkontingensi

## [1] 0.1484484