数据:
成对样品,分别是变量A(a1,a2,...,an)与变量B(b1,b2,...,bn),A与B的取值范围都是[-Inf,Inf],样品数值近似正态分布,认为A与B的总体均值为0且总体方差相等。
目标:
获得A/B=1的区间
方案:
通过置换测验进行假设检验,获得显著性水平α=0.05时双尾检验的临界值,从而确定区间。设定零假设是mu_A/mu_B=1
问题:
如何进行置换检验的抽样?以及相关的置换检验计算?或者有没有其他方案可获得A/B=1的区间?
示例数据:
a <- c(-0.13,0.22,0.04,-0.44,-0.03,-0.24,-0.42,0.12,-0.43,0.03,0.34,0.10,-0.20,0.22,
0.05,-0.17,0.14,0.14,0.09,0.02,-0.03,-0.14,-0.32,0.28,-0.08,-0.21,0.27,0.13,
0.24,-0.10,-0.36,0.05,0.02,-0.26,0.26,0.23,0.20,0.38,-0.09,0.11,0.25,-0.16,
0.18,-0.32,-0.25,-0.15,0.16,0.04,-0.07,0.13)
b <- c(0.05,0.22,0.09,-0.16,0.11,0.17,-0.02,-0.51,0.33,-0.08,-0.13,-0.43,0.21,-0.15,
0.09,0.28,0.42,0.05,-0.03,0.06,0.06,-0.41,-0.24,-0.06,-0.11,0.29,-0.23,-0.13,
-0.08,0.12,-0.03,0.34,-0.49,-0.08,0.22,-0.22,0.02,-0.71,0.01,-0.45,-0.16,
-0.19,-0.49,-0.33,0.25,-0.30,-0.07,-0.02,-0.14,-0.27)
请各位大神帮忙瞅瞅!!球球了!!感恩!!
20230605:【数据】A与B的取值范围更正为[-Inf,0)或(0,Inf]