powered by
Seatbelt
str(Seatbelt) attach(Seatbelt) Seatbelt chisq.test(Seatbelt[,2:5]) detach(Seatbelt)
Run the code above in your browser using DataLab