# Load the library.

library("MASS")

​

# Create a data frame from the main data set.

car.data <- data.frame(Cars93$AirBags, Cars93$Type)

​

# Create a table with the needed variables.

car.data = table(Cars93$AirBags, Cars93$Type)

print(car.data)

​

# Perform the Chi-Square test.

print(chisq.test(car.data))

​