35、统计假设检验：从比例到分类变量的全面解析

统计假设检验：从比例到分类变量的全面解析

1. 编写 t.test 包装函数

在进行非配对 t 检验时，有一个经验法则可用于决定是否使用合并方差估计。下面是一个包装函数，它会根据这个经验法则决定是否以 var.equal = FALSE 执行 t.test ：

# 定义包装函数
my_t_test <- function(x, y, var.equal = FALSE, paired = FALSE, ...) {
  if (!paired) {
    # 根据经验法则自动确定 var.equal 的值
    # 这里省略具体的经验法则判断代码，可根据实际情况添加
    var.equal <- TRUE  # 示例，可根据实际修改
  }
  # 调用 t.test
  result <- t.test(x, y, var.equal = var.equal, paired = paired, ...)
  return(result)
}

这个函数有四个定义好的参数：
- x 和 y ：无默认值，处理方式与 t.test 中的相同参数一致。
- var.equal 和 paired ：默认值与 t.test 相同。
- 还包含一个省略号 ... ，用于表示要传递给 t.te