计算R中的卡方统计量

# 示例数据
data <- data.frame(
  Gender = c("Male", "Female", "Male", "Female", "Male", "Female"),
  Satisfaction = c("Satisfied", "Not Satisfied", "Satisfied", "Satisfied", "Not Satisfied", "Not Satisfied")
)

# 创建列联表
contingency_table <- table(data$Gender, data$Satisfaction)
print(contingency_table)

          Not Satisfied Satisfied
  Female               2         1
  Male                 1         2

# 计算卡方统计量
chisquare_test <- chisquare.test(contingency_table)
print(chisquare_test)

	Pearson's Chi-squared test with Yates' continuity correction

data:  contingency_table
X-squared = 0.33333, df = 1, p-value = 0.5635