離差（deviance）原則
在模型摘要中沒有提供 R-squared。取而代之的是回報了兩種離差（deviance）。null deviance 做為基準，可相對於 extended.model 的 residual deviance 來評估。
null model 是沒有任何額外解釋變數的邏輯斯模型。你可以用關係式 HOPPINESS ~ 1 指定這種只有截距的模型。依然使用 glm() 函式，並將 family 參數設為 family = binomial。將結果命名為 null.model。接著，使用 anova() 函式並加入參數 test = "Chisq"，比較 extended.model 與 null.model 的離差減少量，以判斷預測準確度是否有所提升。
本練習屬於課程
在 R 中建立反應模型
練習說明
- 僅用截距解釋
HOPPINESS。使用glm()函式與參數family = binomial，並將結果指定給名為null.model的物件。 - 使用
anova()函式與參數test = "Chisq"，比較extended.model與null.model。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Explain HOPPINESS by the intercept only
___ <- ___(___, family = ___, data = choice.data)
# Compare null.model and extended.model
___(extended.model, ___, test = ___)