BlomqvistBeta[v1,v2]
ベクトル v1と v2についてBlomqvistの中間相関係数 β を与える.
行列 m についてBlomqvistの中間相関係数 β を与える.
BlomqvistBeta[m1,m2]
行列 m1と m2についてBlomqvistの中間相関係数 β を与える.
BlomqvistBeta[dist]
多変量記号分布 dist について中間相関係数行列を与える.
BlomqvistBeta[dist,i,j]
多変量記号分布 dist の第(i,j)
中間相関係数を与える.
BlomqvistBeta
BlomqvistBeta[v1,v2]
ベクトル v1と v2についてBlomqvistの中間相関係数 β を与える.
行列 m についてBlomqvistの中間相関係数 β を与える.
BlomqvistBeta[m1,m2]
行列 m1と m2についてBlomqvistの中間相関係数 β を与える.
BlomqvistBeta[dist]
多変量記号分布 dist について中間相関係数行列を与える.
BlomqvistBeta[dist,i,j]
多変量記号分布 dist の第(i,j)
中間相関係数を与える.
詳細
- BlomqvistBeta[v1,v2]は,v1と v2の間のBlomqvistの中間相関係数 β を与える.
- ベクトル x とベクトル y との間のBlomqvistの中間相関係数 β はCorrelation[Sign[x-μx],Sign[y-μy]]で与えられる.ただし,μxと μyはそれぞれ x と y の中央値である.
- 引数 v1と v2 は,同じ長さの任意の実ベクトルでよい.
- 列数が
の行列 m について,BlomqvistBeta[m]は m の列間にある β の
×
行列である.
×
行列 m1と
×
行列 m2について,BlomqvistBeta[m1,m2]は m1の列と m2の列の間にある β の
×
行列である.- BlomqvistBeta[dist,i,j]は Probability[(x-μx)(y-μy)>0,{x,y}disti,j]-Probability[(x-μx)(y-μy)<0,{x,y}disti,j]である.この場合,disti,jは dist の
番目の周辺分布である. - BlomqvistBetaは,離散分布については,あるいはタイがある場合は不明確である.
- BlomqvistBeta[dist]は

番目の項目がBlomqvistBeta[dist,i,j]で与えられる行列 β を与える.
例題
すべて開く すべて閉じる例 (4)
v1 = {3, -4, 1, 4, 22, 17, -2, 2, 13, -11};
v2 = {-20, -24, 0, 4, 24, 36, -12, -12, 56, -14};BlomqvistBeta[v1, v2]m = RandomVariate[BinormalDistribution[.6], 10^3];BlomqvistBeta[m]//MatrixFormm1 = RandomReal[1, {10^3, 4}];m2 = RandomReal[1, {10^3, 3}];BlomqvistBeta[m1, m2]//MatrixForm二変量分布についてBlomqvistの β 行列を計算する:
𝒟 = BinormalDistribution[.5];BlomqvistBeta[𝒟]//MatrixFormBlomqvistBeta[RandomVariate[𝒟, 10^6]]//MatrixFormスコープ (7)
データ (4)
BlomqvistBeta[{-20, -21, 1, 7, 24, 36, -10, -12, 56, -14}, {3, -4, 1, 4, 22, 17, -2, 2, 13, -11}]BlomqvistBeta[{1.5, 3, 5, 10}, {2, 1.25, 15, 8}]BlomqvistBeta[N[{1, 3, 5, 6, 9}, 30], N[{2, -1, 3, 11, 4}, 30]]BlomqvistBeta[RandomReal[1, 10 ^ 5], RandomReal[1, 10 ^ 5]]SparseArrayデータを使うことができる:
BlomqvistBeta[SparseArray[{{2, 2} -> 1, {5, 3} -> 2, {10, 1} -> 3}]]//MatrixForm分布と過程 (3)
BlomqvistBeta[BinormalDistribution[ρ]]//Simplify//MatrixFormBlomqvistBeta[BinormalDistribution[ρ], 2, 1]//SimplifyBlomqvistBeta[ProductDistribution[ExponentialDistribution[1], NormalDistribution[3, 5]]]//MatrixForm𝒟 = CopulaDistribution[{"FGM", 2 / 3}, {UniformDistribution[{0, 1}], UniformDistribution[{0, 1}]}];BlomqvistBeta[𝒟]//MatrixForm𝒟 = HistogramDistribution[RandomVariate[BinormalDistribution[.75], 10 ^ 4]];BlomqvistBeta[𝒟]//MatrixFormBlomqvistBeta[BinormalDistribution[.75]]//MatrixForm時点
および
における,ランダム過程についてのBlomqvistの β 行列:
BlomqvistBeta[WienerProcess[][{0.2, 0.3}]]//MatrixFormアプリケーション (3)
Blomqvistの β は,一般に,2つのベクトル間の線形従属性の検出に使われる:
{v11, v21} = Transpose[RandomVariate[BinormalDistribution[.99], 1000]];
{v12, v22} = Transpose[RandomVariate[BinormalDistribution[0], 1000]];β の絶対的な大きさは,線形従属性が強い場合は,1に近くなる:
BlomqvistBeta[v11, v21]BlomqvistBeta[v12, v22]Blomqvistの β を使って線形関係を測ることができる:
data = BlockRandom[SeedRandom[1];Table[RandomVariate[BinormalDistribution[i], 1000], {i, {-.99, -.75, -.25, -.5, 0., .25, .5, .75, .99}}]];Grid[Partition[Table[ListPlot[i, PlotStyle -> Directive[PointSize[Tiny]],
FrameTicks -> None, Frame -> True, Axes -> None, PlotLabel -> Row[{"β : ", BlomqvistBeta[i][[1, 2]]}]], {i, data}],
3]]uni = RandomReal[{-3, 3}, 1000];f[x_] := {{x, -Sqrt[Abs[x]] + RandomReal[.5]}, {x, .25x^2 + RandomReal[.5]}, {x, -Sinc[x] + RandomReal[.5]}, {Cos[x], Sin[x] + RandomReal[.5]}}data = f /@ uni;Table[ListPlot[data[[All, i]], Frame -> True, Axes -> None, PlotLabel -> Row[{"β : ", BlomqvistBeta[data[[All, i]]][[1, 2]]}], PlotStyle -> Directive[PointSize[Tiny]], FrameTicks -> None], {i, 4}]HoeffdingDは他のさまざまな依存構造に使うことができる:
Table[HoeffdingD[data[[All, i]]][[1, 2]], {i, 4}]特性と関係 (7)
Blomqvistの β の範囲は,高い否定的関係を示す
から高い関係性を示す
までである:
d = RandomVariate[NormalDistribution[], 100];BlomqvistBeta[d, d]BlomqvistBeta[d, -d]blb = BlomqvistBeta[RandomVariate[BinormalDistribution[1 / 3], 10 ^ 3]];SymmetricMatrixQ[blb]data = RandomInteger[{-3, 3}, {100, 15}];Diagonal[BlomqvistBeta[data]]d = RandomVariate[BinormalDistribution[.5], 100];med = Median[d]medCentered = Transpose[Transpose[d] - med];ListPlot[medCentered, Frame -> True, AspectRatio -> 1, PlotRange -> {{-3, 3}, {-3, 3}}]q1 = Count[medCentered, {x_, y_} /; x > 0 && y > 0];
q2 = Count[medCentered, {x_, y_} /; x <= 0 && y > 0];
q3 = Count[medCentered, {x_, y_} /; x <= 0 && y <= 0];
q4 = Count[medCentered, {x_, y_} /; x > 0 && y <= 0];n1 = q1 + q3n2 = q2 + q4(n1 - n2/n1 + n2)//NBlomqvistBeta[d[[All, 1]], d[[All, 2]]]//NBlomqvistの β は完全な単調関係がある場合は
あるいは
を返す:
x = Sort@RandomReal[10, 50];
y = If[# > 5, 5#, #]& /@ x;ListPlot[{Transpose[{x, y}], Transpose[{x, -y}]}, Frame -> True]BlomqvistBeta[x, y]BlomqvistBeta[x, -y]これは線形関係の程度を測るCorrelationとは対照的である:
Correlation[x, y]Correlation[x, -y]BlomqvistBetaTestを使って β の値の検定ができる:
data = RandomVariate[BinormalDistribution[-.65], 100];BlomqvistBeta[data[[All, 1]], data[[All, 2]]]BlomqvistBetaTest[data[[All, 1]], data[[All, 2]], "TestDataTable"]IndependenceTestを使って適切な検定を自動的に選ぶことができる:
IndependenceTest[data[[All, 1]], data[[All, 2]], "TestDataTable"]𝒟 = CopulaDistribution[{"AMH", 1}, {UniformDistribution[{0, 1}], UniformDistribution[{0, 1}]}];BlomqvistBeta[𝒟, 1, 2]{μx, μy} = Table[Mean[MarginalDistribution[𝒟, i]], {i, 2}]βExpected = Probability[(x - μx)(y - μy) > 0, {x, y}𝒟] - Probability[(x - μx)(y - μy) < 0, {x, y}𝒟]data = RandomVariate[𝒟, 10 ^ 6];BlomqvistBeta[data][[1, 2]] - βExpected//N関連するガイド
-
▪
- 記述統計 ▪
- 統計モーメントと母関数
テキスト
Wolfram Research (2012), BlomqvistBeta, Wolfram言語関数, https://reference.wolfram.com/language/ref/BlomqvistBeta.html.
CMS
Wolfram Language. 2012. "BlomqvistBeta." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/BlomqvistBeta.html.
APA
Wolfram Language. (2012). BlomqvistBeta. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/BlomqvistBeta.html
BibTeX
@misc{reference.wolfram_2026_blomqvistbeta, author="Wolfram Research", title="{BlomqvistBeta}", year="2012", howpublished="\url{https://reference.wolfram.com/language/ref/BlomqvistBeta.html}", note=[Accessed: 14-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_blomqvistbeta, organization={Wolfram Research}, title={BlomqvistBeta}, year={2012}, url={https://reference.wolfram.com/language/ref/BlomqvistBeta.html}, note=[Accessed: 14-August-2026]}