From 8c42c72cd9156fc6cba4e95af3a4dcd9323ab3d0 Mon Sep 17 00:00:00 2001
From: yyh <ykongxiang@outlook.com>
Date: Thu, 20 Mar 2025 22:55:23 +0800
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20exam02=5Fexample.Rmd?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 exam02_example.Rmd | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/exam02_example.Rmd b/exam02_example.Rmd
index 6a0551f..750a172 100644
--- a/exam02_example.Rmd
+++ b/exam02_example.Rmd
@@ -212,8 +212,11 @@ cat(group_levels[1], "组均值与", group_levels[2], "组均值的差异:",
 # "greater" - 单侧检验，假设第一组大于第二组
 # "less" - 单侧检验，假设第一组小于第二组
 test_alternative <- "two.sided"  # 可根据研究假设修改
+test_paired <- 'F'
+```
 
 ### 检查统计检验的假设
+
 ```{r}
 if(normality_assumption_met) {
   cat("数据满足正态性假设，使用t检验\n")
@@ -223,6 +226,7 @@ if(normality_assumption_met) {
     cat("数据满足方差同质性假设，使用等方差t检验(var.equal = TRUE)\n")
     t_test <- t.test(value ~ group, data = data, 
                      alternative = test_alternative,
+                     paired = test_paired,
                      var.equal = TRUE)
   } else {
     cat("数据不满足方差同质性假设，使用Welch's t检验(var.equal = FALSE)\n")