ส่วนที่เหลือของความเบี่ยงเบน (หรือเพียร์สัน) NB นั้นไม่ได้รับการคาดหวังว่าจะมีการแจกแจงแบบปกติยกเว้นรุ่น Gaussian สำหรับกรณีการถดถอยแบบลอจิสติกตามที่ @Stat บอกว่าค่าเบี่ยงเบนส่วนเบี่ยงเบนมาตรฐานสำหรับการสังเกต thนั้นได้รับจากiyi
rDi=−2|log(1−π^i)|−−−−−−−−−−−√
ถ้า &yi=0
rDi=2|log(π^i)|−−−−−−−−√
ถ้า , ที่คือความน่าจะเป็นของ Bernoulli เนื่องจากแต่ละค่าสามารถใช้เพียงหนึ่งในสองค่าเท่านั้นการล้างค่าการแจกแจงของพวกเขาไม่สามารถเป็นปกติได้แม้จะเป็นรุ่นที่ระบุอย่างถูกต้อง:yi=1πi^
#generate Bernoulli probabilities from true model
x <-rnorm(100)
p<-exp(x)/(1+exp(x))
#one replication per predictor value
n <- rep(1,100)
#simulate response
y <- rbinom(100,n,p)
#fit model
glm(cbind(y,n-y)~x,family="binomial") -> mod
#make quantile-quantile plot of residuals
qqnorm(residuals(mod, type="deviance"))
abline(a=0,b=1)
แต่ถ้ามีทำซ้ำการสังเกตสำหรับรูปแบบตัวทำนายและความเบี่ยงเบนที่เหลือถูกกำหนดเพื่อรวบรวมสิ่งเหล่านี้nii
rDi=sgn(yi−niπ^i)2[yilogyinπ^i+(ni−yi)logni−yini(1−π^i)]−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−√
(โดยที่นับจากความสำเร็จตั้งแต่ 0 ถึง ) จากนั้นเมื่อมีขนาดใหญ่ขึ้นการแจกแจงส่วนที่เหลือจะใกล้เคียงกับมาตรฐานมากขึ้น:n ฉันn ฉันyinini
#many replications per predictor value
n <- rep(30,100)
#simulate response
y<-rbinom(100,n,p)
#fit model
glm(cbind(y,n-y)~x,family="binomial")->mod
#make quantile-quantile plot of residuals
qqnorm(residuals(mod, type="deviance"))
abline(a=0,b=1)
สิ่งที่มีความคล้ายคลึงกับปัวซองหรือลบ GLMs แบบทวินาม: สำหรับจำนวนที่คาดการณ์ไว้ต่ำการกระจายตัวของสิ่งที่เหลือนั้นไม่ต่อเนื่องและเอียง
อย่างน้อยก็ไม่ปกติที่คอของฉันที่จะทำการทดสอบอย่างเป็นทางการเกี่ยวกับภาวะปกติ; หากการทดสอบภาวะปกตินั้นไม่มีประโยชน์อย่างเป็นรูปธรรมเมื่อแบบจำลองของคุณใช้ความแน่นอนตามปกติแล้วFortioriก็จะไร้ประโยชน์หากไม่เป็นเช่นนั้น อย่างไรก็ตามสำหรับโมเดลที่ไม่อิ่มตัวการวินิจฉัยส่วนที่เหลือแบบกราฟิกนั้นมีประโยชน์สำหรับการประเมินสถานะและลักษณะของการขาดความพอดีการยึดถือกฎเกณฑ์ด้วยการเหน็บแนมหรือกำปั้นของเกลือขึ้นอยู่กับจำนวนของการจำลองซ้ำตามรูปแบบการทำนาย