R语言假设检验：使用wilcox.test函数进行秩和检验、Wilcoxon秩和检验分析两组数据的均值是否有差异（分析两组工人血铅值有无差异）

R语言假设检验：使用wilcox.test函数进行秩和检验、Wilcoxon秩和检验分析两组数据的均值是否有差异（分析两组工人血铅值有无差异）

目录

R语言使用wilcox.test函数进行秩和检验、Wilcoxon秩和检验分析两组数据的均值是否有差异（分析两组工人血铅值有无差异）

假设检验

假设检验的应用

仿真数据

R语言使用wilcox.test函数进行秩和检验、Wilcoxon秩和检验分析两组数据的均值是否有差异（分析两组工人血铅值有无差异）

---

假设检验

假设检验使用统计学中的概念来确定给定假设有效的概率。通过假设检验，我们可以通过分析样本统计量来推断样本对应的总体的参数。

统计假设检验可以分为以下两类：

无效假设（Null Hypothesis）：假设检验是为了检验关于更大人群（总体，population）的主张或假设的有效性而进行的。零假设检验用H0表示。

备则假设（Alternative Hypothesis）：如果无效假设是谬误的，一个备则假设将被认为是有效的。备则假设检验用H1或Ha表示。

让我们以抛硬币为例。我们想断定一枚硬币是不是无偏的。由于零假设是指一个事件的自然状态，因此，根据零假设，如果一枚硬币被抛几次，那么正面和反面出现的次数将是相等的。另一方面，备则假设否定了零假设，指出正面和方面的出现在数量上会有显著的差异。

统计学家使用假设检验来正式检查假设是否被接受或拒绝。假设检验以下列方式进行：陈述假设、制定分析计划、分析样本数据、解释结果；

假设检验最终使用p值来衡量证据的强弱程度，或者换句话说，关于总体（population）的实际数据是什么。p值的范围在0到1之间。可以这样解释：

一个小的p值（通常≤0.05)表明有强有力的证据反对零假设，所以你拒绝它。

较大的p值(>0.05)表明反对无效假设的证据很微弱弱，所以你不能拒绝它。

非常接近临界值（0.05）的P值被认为是边缘的，可以走任何一条路。

通常来讲，假设检验从关于总体参数的假设（Hypothesis）或断言（Assertation）开始。例如，我们可能有兴趣验证飞利浦的号称，他们的某款LED灯泡的平均寿命为10年，我们可以采集数据通过假设检验来判别一切是毫无根据的夸大吹嘘还是实事求是。

假设检验的应用

当我们想比较样本均值和总体均值时。例如，我们想确定X品牌灯泡的平均寿命是否为10年。在这种情况下，当你想检查样本均值是否代表总体均值时，你应该运行单样本t检验（One Sample t-test）。

当我们要比较两个自变量的均值时。其中之一可以是类别变量。在这种情况下，我们运行双样本t检验（Two sample t-test）。

当我们想比较实验或治疗的前后效果时。然后，在这种情况下，我们运行配对的t检验，或者成对的t检验（Paired t-test）。

当我们要比较两个以上的自变量（independent variables）时；在这种情况下，我们运行方差分析（ANOVA）测试

在以上所有的应用中，我们都假设变量是数值的（numeric）。然而，当你想比较两个类别变量（categorical variables）时，我们运行卡方检验（Chi-square test）。

仿真数据

x <- c(24,26,29,34,43,58,63,72,87,101)
y <- c(82,87,97,121,164,208,213)

R语言使用wilcox.test函数进行秩和检验、Wilcoxon秩和检验分析两组数据的均值是否有差异（分析两组工人血铅值有无差异）

Wilcoxon 符号秩检验可以看作非独立样本 t 检验的一种非参数替代方法；

两种检测方法得到的配对数据 x 和 y，运用非参数方法；

t检验是两个分类、方差分析可以多个分类、多个因素交叉、不过需要满足方差齐性；

如果数据无法满足 t 检验或者方差分析的假设，例如变量呈明显的偏态分布，或者组间不具有方差齐性，我们可以采用非参数方法。

对于两组非独立样本，可以使用 Wilcoxon 符号秩和检验来评估观测值是否是从相同的分布中抽得的。

如果p值小于0.05或者0.01则拒绝均值相同的假设（ p < 0.01）

Wilcoxon 符号秩检验可以看作非独立样本 t 检验的一种非参数替代方法。

# Wilcoxon秩和检验
x <- c(24,26,29,34,43,58,63,72,87,101)
y <- c(82,87,97,121,164,208,213)
# 不采用连续性修正
wilcox.test(x,y,alternative="less",exact=FALSE,correct=FALSE)

> x <- c(24,26,29,34,43,58,63,72,87,101)
> y <- c(82,87,97,121,164,208,213)
> # 不采用连续性修正
> wilcox.test(x,y,alternative="less",exact=FALSE,correct=FALSE)

    Wilcoxon rank sum test

data:  x and y
W = 4.5, p-value = 0.001449
alternative hypothesis: true location shift is less than 0

> 

参考：R