QQラインの信頼帯


14

この質問は特にに関係するものRではありませんがR、説明のために使用することにしました。

(通常の)qqラインの周りに信頼帯を生成するコードを考えます。

library(car)
library(MASS)
b0<-lm(deaths~.,data=road)
qqPlot(b0$resid,pch=16,line="robust")

私はこれらの信頼帯がどのように構築されるかの説明(または代替の紙/オンライン文書へのリンク)を探しています(RのヘルプファイルでFox 2002への参照を見ましたが、悲しいことに私はこれを持っていません便利な本)。

私の質問は例を使用してより正確になります。Rこれらの特定のCIの計算方法は次のとおりです(で使用するコードを短縮/簡略化しましたcar::qqPlot)。

x<-b0$resid
good<-!is.na(x)
ord<-order(x[good])
ord.x<-x[good][ord]
n<-length(ord.x)
P<-ppoints(n)
z<-qnorm(P)
plot(z,ord.x,type="n")
coef<-coef(rlm(ord.x~z))
a<-coef[1]
b<-coef[2]
abline(a,b,col="red",lwd=2)
conf<-0.95
zz<-qnorm(1-(1-conf)/2)
SE<-(b/dnorm(z))*sqrt(P*(1-P)/n)     #[WHY?]
fit.value<-a+b*z
upper<-fit.value+zz*SE
lower<-fit.value-zz*SE
lines(z,upper,lty=2,lwd=2,col="red")
lines(z,lower,lty=2,lwd=2,col="red")

問題は、これらのSEを計算するために使用される式の正当化とは何ですか(例:line SE<-(b/dnorm(z))*sqrt(P*(1-P)/n))。

FWIWこの式は、線形回帰で使用される通常の信頼帯の式とは大きく異なります


2
私はそれに関係する情報を期待順序統計量の分布 、特に漸近的な結果:
fX(k)(x)=n!(k−1)!(n−k)![FX(x)]k−1[1−FX(x)]n−kfX(x)
X(⌈np⌉)∼AN(F−1(p),p(1−p)n[f(F−1(p))]2)
— Glen_b -Reinstate Monica 14

4
@Glen_bが正しい。ジョンフォックスは35〜36ページに次のように書いています。「順序統計の標準誤差はここで、はCDF対応する確率密度関数です。近似直線に沿った値は。したがって、近似線の周りの約95%の信頼度「エンベロープ」は。 " S E(X (I ))= σバツ(私) P(Z)、P(Z)X(I)=μ+σZIX(I)±2×SE(X(I))
SE(バツ(私))=σ^p(z私)P私(1−P私)n
p(z)P(z)バツ^(私)=μ^+σ^z私バツ^(私)±2×SE(バツ(私))
— COOLSerdash 14

2
まだ残っているのは、COOLSerdashが与えた方程式のがで推定されることだけだと思います。f(F−1(p))(p(z私)/σ^)
— グレン_b-モニカの復活14

回答:


6

それに関係してい 順序統計量の分布 、特に漸近的な結果:

fバツ(k)(バツ)=n!(k−1)!(n−k)![Fバツ(バツ)]k−1[1−Fバツ(バツ)]n−kfバツ(バツ)
バツ(⌈np⌉)〜AN(F−1(p)、p(1−p)n[f(F−1(p))]2)

COOLSerdashがコメントで言及しているように、John Fox [1]は35〜36ページに次のように書いています。

順序統計の標準誤差はここで、はCDF対応する確率密度関数です。線に沿った値は、与えられます。したがって、近似線の約95%の信頼度「エンベロープ」は、です。バツ(私)

SE(バツ(私))=σ^p(z私)P私(1−P私)n
p(z)P(z)バツ^(私)=μ^+σ^z私バツ^(私)±2×SE(バツ(私))

次に、がによって推定されることを認識する必要があります。f(F−1(p))(p(z私)/σ^)

[1] Fox、J.(2008)、
Applied Regression Analysis and Generalized Linear Models、2nd Ed。、
Sage Publications、Inc

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.