次の解決策は、1950年のJASA論文でGreenwoodとSandomireによって提供されました。
X1,…,XnN(μ,σ2)σ
S=∑i=1n(Xi−X¯)2n−1−−−−−−−−−−−−⎷,
Sσ0<u<1Pr{S<(1−u)⋅σ}=aandPr{S>(1+u)⋅σ}=b,
γ=1−a−b
これは、以下のもの
と
ピボット量は分布があり、2つの確率が加算されるため、のPr
Pr{(n−1)S2σ2<(n−1)(1−u)2}=a
(N-1)S2/σ2χ2 N - 1Pr{(n−1)S2σ2>(n−1)(1+u)2}=b.
(n−1)S2/σ2χ2n−1
γ=Fχ2(n−1)((n−1)(1+u)2)−Fχ2(n−1)((n−1)(1−u)2),
そして、必要なサンプルサイズは、指定されたおよびについての前の方程式を解くとわかります。γ Unγu
R
コード。
gamma <- 0.95
u <- 0.1
g <- function(n) pchisq((n-1)*(1+u)^2, df = n-1) - pchisq((n-1)*(1-u)^2, df = n-1) - gamma
cat("Sample size n = ", ceiling(uniroot(g, interval = c(2, 10^6))$root), "\n")
用の出力と。γ = 95 %u=10%γ=95%
Sample size n = 193