Існує кілька способів кількісної оцінки похибки стандартного відхилення у звичайному випадку. Я збираюся представити профільну ймовірність яку можна використовувати для наближення довірчих інтервалів.σ
х = ( х1, . . . , хн)( μ , σ)
L (μ,σ) ∝ 1σндосвід( - 12 σ2∑j = 1н( хj- мк )2)
( мк^, σ^) = ( х¯, s )s = 1н∑нj = 1( хj- х¯)2--------------√σ
Rp( σ) = супмкL (μ,σ)L ( μ^, σ^)= ( σ^σ)ндосвід[ н2( 1 - ( σ^σ)2) ]
Зауважте, що . Інтервал рівня має приблизну впевненість . Далі я додаю код який можна використовувати для обчислення цих інтервалів. Ви можете змінити його відповідно у вашому контексті (або якщо ви розміщуєте дані, я можу включати ці зміни).0,147 0,95 RRp: R+→ ( 0 , 1 ]0,1470,95R
data = rnorm(30)
n = length(data)
sg = sqrt(mean((data-mean(data))^2))
# Profile likelihood
rp = function(sigma) return( (sg/sigma)^n*exp(0.5*n*(1-(sg/sigma)^2)) )
vec = rvec = seq(0.5,1.5,0.01)
for(i in 1:length(rvec)) rvec[i] = rp(vec[i])
plot(vec,rvec,type="l")
rpc = function(sigma) return(rp(sigma)-0.147)
# Approximate 95% confidence interval
c(uniroot(rpc,c(0.7,0.8))$root,uniroot(rpc,c(1.1,1.3))$root)
Перевагою цього інтервалу є те, що вони є інваріантними під час перетворень. У цьому випадку, якщо обчислити інтервал для , , то відповідний інтервал для просто .I = ( L , U ) σ 2 I ′ = ( L 2 , U 2 )σЯ= ( L , U)σ2I′=(L2,U2)