BlomqvistBetaTest[v1,v2]
检验向量 v1 与 v2 是否线性独立.
BlomqvistBetaTest[m1,m2]
检验矩阵 v1 与 v2 是否线性独立.
BlomqvistBetaTest[…,"property"]
返回 "property" 的值.
BlomqvistBetaTest
BlomqvistBetaTest[v1,v2]
检验向量 v1 与 v2 是否线性独立.
BlomqvistBetaTest[m1,m2]
检验矩阵 v1 与 v2 是否线性独立.
BlomqvistBetaTest[…,"property"]
返回 "property" 的值.
更多信息和选项
- BlomqvistBetaTest 在 v1 和 v2 上执行假设检验,向量是线性独立的为零假设
,它们不是线性独立的为替代假设
. - 缺省时返回一个概率值,即
值. - 如果
值较小,则
是 true 的可能性较小. - 参变量 v1 和 v2 可以是任何等长的实数值向量或者矩阵.
- BlomqvistBetaTest 基于由 BlomqvistBeta[v1,v2] 计算得到的 Blomqvist 的中间相关系数 β.
- 对于矩阵检验,检验统计量基于内部标准化的空间符号,并渐进地服从 ChiSquareDistribution[r*s],其中 r 和 s 分别是 m1 和 m2 的维度. 检验统计量在仿射变换下是不变的.
- BlomqvistBetaTest[v1,v2,"HypothesisTestData"] 返回一个 HypothesisTestData 对象 htd,该对象可利用形式 htd["property"] 提取额外的检验结果与性质.
- BlomqvistBetaTest[v1,v2,"property"] 可以直接给出 "property" 的值.
- 与检验结果报告相关的性质包括:
-
"DegreesOfFreedom" 检验中使用的自由度 "PValue" 检验中的
值"PValueTable" 包含
值的格式化的表格"ShortTestConclusion" 一个检验结论的简短描述 "TestConclusion" 一个检验结论的描述 "TestData" 包含检验统计量与
值的列表"TestDataTable"
值和检验统计量的格式化表格"TestStatistic" 检验统计量 "TestStatisticTable" 包含检验统计量的格式化表格 - 可以给出以下选项:
-
AlternativeHypothesis "Unequal" 替代假设的不等性 MaxIterations Automatic 多变量检验的最大迭代次数 Method Automatic 计算
值所用的方法SignificanceLevel 0.05 诊断和报告的分界点 - 对于独立检验,选择一个临界值
,以使得只有当
时,否定
. 用于 "TestConclusion" 和 "ShortTestConclusion" 属性的
值由 SignificanceLevel 选项控制. 默认情况下,
设为 0.05.
范例
打开所有单元 关闭所有单元基本范例 (2)
{v1, v2} = Transpose[RandomVariate[BinormalDistribution[-.8], 100]];ListPlot[Transpose[{v1, v2}]]BlomqvistBetaTest[v1, v2, "TestDataTable"]BlockRandom[
SeedRandom[2];
data1 = RandomVariate[BinormalDistribution[.5], 100];
data2 = RandomVariate[BinormalDistribution[.5], 100];
]BlomqvistBetaTest[data1, data2, "TestDataTable"]范围 (8)
检验 (5)
{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];{v3, v4} = Transpose[RandomVariate[BinormalDistribution[.7], 100]];BlomqvistBetaTest[v1, v2]BlomqvistBetaTest[v3, v4]Σ1 = {{12.8, 0.3, 3., -1.5, 5.1}, {0.3, 2.4, 0.9, -0.3, -0.8}, {3., 0.9, 6.5, 0.8, 1.3}, {-1.5, -0.3, 0.8, 1.4, 2.}, {5.1, -0.8, 1.3, 2., 11.1}};data1 = RandomVariate[MultinormalDistribution[{0, 0, 0, 0, 0}, Σ1], 100];BlomqvistBetaTest[data1[[All, 1 ;; 2]], data1[[All, 3 ;; 5]]]Σ2 = IdentityMatrix[5];data2 = RandomVariate[MultinormalDistribution[{0, 0, 0, 0, 0}, Σ2], 100];BlomqvistBetaTest[data2[[All, 1 ;; 2]], data2[[All, 3 ;; 5]]]为重复的属性提取,创建一个 HypothesisTestData 对象:
{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];ℋ["Properties"]从 HypothesisTestData 对象中提取某些属性:
{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];ℋ["PValue"]ℋ["TestStatistic"]{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];ℋ["PValue", "TestStatistic"]报告 (3)
{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];ℋ["TestDataTable"]{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];res = ℋ["TestData"]Labeled[ProgressIndicator[res[[2]]], Row[{Style["β: ", Bold, FontSize -> 14], res[[1]]}]]{v1, v2} = Transpose[RandomVariate[BinormalDistribution[0], 100]];ℋ = BlomqvistBetaTest[v1, v2, "HypothesisTestData"];ℋ["PValueTable"]ℋ["PValue"]ℋ["TestStatisticTable"]ℋ["TestStatistic"]选项 (9)
AlternativeHypothesis (3)
{v1, v2} = Transpose[RandomVariate[CopulaDistribution[{"Clayton", 1}, {NormalDistribution[], NormalDistribution[]}], 100]];BlomqvistBetaTest[v1, v2, AlternativeHypothesis -> "Unequal"]BlomqvistBetaTest[v1, v2, AlternativeHypothesis -> Automatic]{v1, v2} = Transpose@RandomVariate[CopulaDistribution[{"Clayton", 3}, {NormalDistribution[], NormalDistribution[]}], 100];BlomqvistBetaTest[v1, v2, AlternativeHypothesis -> "Unequal"]BlomqvistBetaTest[v1, v2, AlternativeHypothesis -> "Less"]BlomqvistBetaTest[v1, v2, AlternativeHypothesis -> "Greater"]m = Transpose@RandomVariate[CopulaDistribution[{"Clayton", 3}, {NormalDistribution[], NormalDistribution[], NormalDistribution[], NormalDistribution[]}], 100];BlomqvistBetaTest[m[[All, 1 ;; 2]], m[[All, 3 ;; 4]], AlternativeHypothesis -> "Less"]m1 = RandomVariate[BinormalDistribution[0], {250, 50}];
m2 = RandomVariate[BinormalDistribution[0], {250, 50}];t = MapThread[BlomqvistBetaTest[#1, #2, "TestStatistic"]&, {m1, m2}];Histogram[t]MaxIterations (1)
data1 = RandomVariate[BinormalDistribution[.5], 25];
data2 = RandomVariate[BinormalDistribution[.5], 25];BlomqvistBetaTest[data1, data2, MaxIterations -> 10000]BlomqvistBetaTest[data1, data2, MaxIterations -> 5]Method (4)
{v1, v2} = Transpose[RandomVariate[CopulaDistribution[{"Clayton", 1}, {NormalDistribution[], NormalDistribution[]}], 100]];BlomqvistBetaTest[v1, v2, Method -> Automatic]BlomqvistBetaTest[v1, v2, Method -> "Asymptotic"]{v1, v2} = Transpose[RandomVariate[CopulaDistribution[{"Clayton", 3}, {NormalDistribution[], NormalDistribution[]}], 10]];BlomqvistBetaTest[v1, v2, Method -> "Permutation"]{v1, v2} = Transpose[RandomVariate[CopulaDistribution[{"Clayton", 3}, {NormalDistribution[], NormalDistribution[]}], 10]];BlomqvistBetaTest[v1, v2, Method -> {"Permutation", "MonteCarloSamples" -> 10^4}]BlomqvistBetaTest[v1, v2, Method -> {"Permutation", "MonteCarloSamples" -> 10^3}]BlomqvistBetaTest[v1, v2, Method -> {"Permutation", "MonteCarloSamples" -> Automatic}]{v1, v2} = Transpose[RandomVariate[CopulaDistribution[{"Clayton", 3}, {NormalDistribution[], NormalDistribution[]}], 10]];BlomqvistBetaTest[v1, v2, Method -> {"Permutation", "RandomSeed" -> 0}]BlomqvistBetaTest[v1, v2, Method -> {"Permutation", "RandomSeed" -> 9}]SignificanceLevel (1)
显著性水平用于 "TestConclusion" 和 "ShortTestConclusion":
BlockRandom[SeedRandom[3];{v1, v2} = Transpose@RandomVariate[CopulaDistribution[{"Clayton", 2}, {NormalDistribution[], NormalDistribution[]}], 100];];ℋ1 = BlomqvistBetaTest[v1, v2, "HypothesisTestData", SignificanceLevel -> .1];ℋ2 = BlomqvistBetaTest[v1, v2, "HypothesisTestData", SignificanceLevel -> .01];ℋ1["TestConclusion"]//TraditionalFormℋ2["TestConclusion"]//TraditionalFormℋ1["ShortTestConclusion"]ℋ2["ShortTestConclusion"]属性和关系 (4)
对于向量向量比较,检验统计量根据 BlomqvistBeta 计算:
v1 = RandomVariate[NormalDistribution[], 100];
v2 = RandomVariate[NormalDistribution[], 100];BlomqvistBetaTest[v1, v2, "TestStatistic"]BlomqvistBeta[v1, v2]m = RandomVariate[MultinormalDistribution[{1, 2, 3, 4}, {{12.8, 0.3, 3., -1.5}, {0.3, 2.4, 0.9, -0.3}, {3., 0.9, 6.5, 0.8}, {-1.5, -0.3, 0.8, 1.4}}], 100];𝒯 = AffineTransform[{{{1, 2}, {3, 4}}, {1, 2}}];BlomqvistBetaTest[m[[All, 1 ;; 2]], m[[All, 3 ;; 4]], "TestDataTable"]BlomqvistBetaTest[𝒯[m[[All, 1 ;; 2]]], 𝒯[m[[All, 3 ;; 4]]], "TestDataTable"]IndependenceTest 可用于自动选择合适的检验:
v1 = RandomVariate[NormalDistribution[], 100];
v2 = RandomVariate[NormalDistribution[], 100];IndependenceTest[v1, v2, "TestDataTable"]BlomqvistBetaTest 是已有检验之一:
IndependenceTest[v1, v2, {"TestDataTable", "BlomqvistBeta"}]BlomqvistBetaTest 只检测单调相关性:
x = Sort[RandomReal[{-1, 1}, 250]];
y = Tan[x] ^ 3 + RandomReal[{-.25, .25}, 250];
z = Tan[x] ^ 4 + RandomReal[{-.25, .25}, 250];ListPlot[Transpose[#], Frame -> True]& /@ {{x, y}, {x, z}}BlomqvistBetaTest[x, y]BlomqvistBetaTest[x, z]HoeffdingDTest 可用于检测大量相关性结构:
HoeffdingDTest[x, y]HoeffdingDTest[x, z]相关指南
-
▪
- 假设检验
文本
Wolfram Research (2012),BlomqvistBetaTest,Wolfram 语言函数,https://reference.wolfram.com/language/ref/BlomqvistBetaTest.html.
CMS
Wolfram 语言. 2012. "BlomqvistBetaTest." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/BlomqvistBetaTest.html.
APA
Wolfram 语言. (2012). BlomqvistBetaTest. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/BlomqvistBetaTest.html 年
BibTeX
@misc{reference.wolfram_2026_blomqvistbetatest, author="Wolfram Research", title="{BlomqvistBetaTest}", year="2012", howpublished="\url{https://reference.wolfram.com/language/ref/BlomqvistBetaTest.html}", note=[Accessed: 14-September-2026]}
BibLaTeX
@online{reference.wolfram_2026_blomqvistbetatest, organization={Wolfram Research}, title={BlomqvistBetaTest}, year={2012}, url={https://reference.wolfram.com/language/ref/BlomqvistBetaTest.html}, note=[Accessed: 14-September-2026]}