用于显示或过滤P值的整齐chisq.test输出的函数

# 自定义函数来执行卡方检验并过滤P值
chisq_test_with_filter <- function(data, p_threshold = 0.05) {
  # 执行卡方检验
  test_result <- chisq.test(data)
  
  # 提取检验结果
  chi_squared_stat <- test_result$statistic
  p_value <- test_result$p.value
  
  # 创建一个数据框来存储结果
  result <- data.frame(
    Chi_Squared_Stat = chi_squared_stat,
    P_Value = p_value,
    stringsAsFactors = FALSE
  )
  
  # 过滤P值
  if (p_value > p_threshold) {
    result$Conclusion <- "Not Significant"
  } else {
    result$Conclusion <- "Significant"
  }
  
  # 返回整齐格式化的输出
  return(result)
}

# 示例数据
observed <- c(10, 20, 30)
expected <- c(15, 15, 20)

# 使用自定义函数进行卡方检验并过滤P值
result <- chisq_test_with_filter(observed, expected, p_threshold = 0.05)
print(result)