regsubsets()
ฉันต้องการที่จะเลือกใช้แบบจำลอง ฉันมีชื่อไฟล์ชื่อ olympiadaten (อัปโหลดข้อมูลแล้ว: http://www.sendspace.com/file/8e27d0 ) ฉันแนบไฟล์ข้อมูลนี้ก่อนแล้วจึงเริ่มวิเคราะห์รหัสของฉันคือ:
attach(olympiadaten)
library(leaps)
a<-regsubsets(Gesamt ~ CommunistSocialist + CountrySize + GNI + Lifeexp +
Schoolyears + ExpMilitary + Mortality +
PopPoverty + PopTotal + ExpEdu + ExpHealth, data=olympiadaten, nbest=2)
summary(a)
plot(a,scale="adjr2")
summary(lm(Gesamt~ExpHealth))
สกรีนช็อตของพล็อต:
ปัญหาคือตอนนี้ที่ฉันต้องการให้พอดีกับรุ่นที่ดีที่สุดอีกครั้ง "ด้วยตนเอง" และได้ดูมัน แต่ค่าของ R กำลังสองปรับไม่เหมือนในการส่งออก regsubsets? นี่เป็นกรณีสำหรับรุ่นอื่นเช่นเมื่อฉันทำแบบจำลองที่ง่ายที่สุดในกราฟิก:
summary(lm(Gesamt~ExpHealth))
กราฟิกบอกว่ามันควรจะมีค่า R ที่ได้รับการปรับประมาณ 0.14 แต่เมื่อฉันดูผลลัพธ์ฉันจะได้รับค่า 0.06435
นี่คือผลลัพธ์ของsummary(lm(Gesamt~ExpHealth))
:
Call:
lm(formula = Gesamt ~ ExpHealth)
Residuals:
Min 1Q Median 3Q Max
-18.686 -9.856 -4.496 1.434 81.980
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -3.0681 6.1683 -0.497 0.6203
ExpHealth 1.9903 0.7805 2.550 0.0127 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 18.71 on 79 degrees of freedom
(4 observations deleted due to missingness)
Multiple R-squared: 0.07605, Adjusted R-squared: 0.06435
F-statistic: 6.502 on 1 and 79 DF, p-value: 0.01271
ฉันไม่รู้ว่าฉันทำผิดอะไรความช่วยเหลือจะได้รับการชื่นชม
และสุดท้าย แต่ไม่ท้ายสุดมีคำถามเพิ่มเติม:
- ความแตกต่างระหว่างการเลือกรุ่นโดย AIC และโดย adj คืออะไร R กำลังสองใช่ไหม
- ทั้งสองวัดความพอดีและรับรู้จำนวนของตัวแปรดังนั้นโมเดลที่ดีที่สุดที่เลือกโดย AIC ไม่ใช่รุ่นที่มี adj สูงสุด กำลังสอง?
- เมื่อฉันมี 12 ตัวแปรหมายความว่ามีความเป็นไปได้รุ่นใช่มั้ย
- ดังนั้น
regsubsets()
คำสั่งจะคำนวณแต่ละโมเดลและแสดงสองดีที่สุด (nbest=2
) ของแต่ละขนาดหรือไม่ - ถ้าเป็นเช่นนั้นฉันจะได้รุ่นที่ดีที่สุดจริง ๆ หรือไม่
- และเมื่อฉันใช้ AIC โดยใช้การเลือกแบบย้อนกลับ (เริ่มจากรุ่นที่มีตัวแปรทั้งหมด) สิ่งนี้จะจบลงด้วยรูปแบบเดียวกันกับที่
regsubsets()
บอกว่าดีที่สุดหรือไม่?