預測麻雀是否存活
在本練習中,你將使用上一題建立的麻雀存活模型,來預測存活的機率。
回想一下,當你呼叫 predict()(文件)以從 glm() 模型取得預測機率時,必須指定要回傳 response:
predict(model, type = "response")
否則,對邏輯斯迴歸模型呼叫 predict() 會回傳事件的對數勝算(log-odds),而不是機率。
你也會使用 GainCurvePlot()(文件)來根據模型預測繪製增益曲線。若模型的增益曲線接近理想(「wizard」)增益曲線,表示模型對麻雀排序得不錯:也就是說,模型會替實際存活的麻雀預測較高的存活機率。GainCurvePlot() 的輸入為:
frame:包含預測欄與真實標記欄的資料框xvar:預測值所在欄位名稱(字串)truthVar:實際結果所在欄位名稱(字串)title:圖表標題(字串)
GainCurvePlot(frame, xvar, truthVar, title)
sparrow 資料框與模型 sparrow_model 已預先載入。
本練習屬於課程
R 中的監督式學習:回歸
練習說明
- 在
sparrow中建立新欄位pred,其內容為對訓練資料的預測值。 - 呼叫
GainCurvePlot()繪製預測的增益曲線。模型是否能夠良好地依實際是否存活來替麻雀排序?
動手互動練習
試著完成這個範例程式碼,體驗一下這個練習。
# sparrow is available
summary(sparrow)
# sparrow_model is available
summary(sparrow_model)
# Make predictions
sparrow$pred <- ___
# Look at gain curve
___(___, ___, ___, "sparrow survival model")