Untitled

#Membuat Tabel Kontingensi
data_survey <- matrix(c(39,51,56,
                        261,249,344),
                      nrow = 2,
                      byrow = TRUE)

#Menambahkan nama baris dan kolom
rownames (data_survey) <- c ("Terlambat","Tepat Waktu")
colnames (data_survey) <- c("Delta","United","US Airways")

#Menampilkan Tabel
print(data_survey)

##             Delta United US Airways
## Terlambat      39     51         56
## Tepat Waktu   261    249        344

#Melakukan Uji Chi_Square
hasil_chi <- chisq.test(data_survey)

#Menambahkan hasil uji
print (hasil_chi)

## 
##  Pearson's Chi-squared test
## 
## data:  data_survey
## X-squared = 2.1174, df = 2, p-value = 0.3469