Skip to menu

R과 SPSS에서 시행한 logistic regression값은 거의 일치하는데, Web-R에서 돌린 것은 일치하지가 않습니다.

namuhanayeyo 2016.04.27 17:23 Views : 681

Web-R과 R에서 logistic regression을 한 값이 다르게 나옵니다.
R과 SPSS에서 돌린 거의 같습니다.

1. R로 돌린 값입니다.
> result <-glm(AE_90D~age+sex+IHD+HF+BA2+FEV1+Home_O2+CRP, family=binomial, data=AE)
> reduced.model2=step(result)
Start:  AIC=85.32
AE_90D ~ age + sex + IHD + HF + BA2 + FEV1 + Home_O2 + CRP

          Df Deviance    AIC
- IHD      1   67.378 83.378
- CRP      1   67.678 83.678
- sex      1   68.143 84.143
- age      1   68.429 84.429
<none>         67.316 85.316
- Home_O2  1   69.693 85.693
- FEV1     1   70.795 86.795
- BA2      1   70.820 86.820
- HF       1   70.858 86.858

Step:  AIC=83.38
AE_90D ~ age + sex + HF + BA2 + FEV1 + Home_O2 + CRP

          Df Deviance    AIC
- CRP      1   67.707 81.707
- sex      1   68.238 82.238
- age      1   68.541 82.541
<none>         67.378 83.378
- Home_O2  1   69.731 83.731
- BA2      1   70.833 84.833
- FEV1     1   70.849 84.849
- HF       1   71.261 85.261

Step:  AIC=81.71
AE_90D ~ age + sex + HF + BA2 + FEV1 + Home_O2

          Df Deviance    AIC
- sex      1   68.661 80.661
- age      1   68.869 80.869
<none>         67.707 81.707
- Home_O2  1   70.545 82.545
- FEV1     1   70.897 82.897
- BA2      1   71.099 83.099
- HF       1   71.877 83.877

Step:  AIC=80.66
AE_90D ~ age + HF + BA2 + FEV1 + Home_O2

          Df Deviance    AIC
- age      1   69.326 79.326
<none>         68.661 80.661
- FEV1     1   71.177 81.177
- BA2      1   71.417 81.417
- Home_O2  1   72.511 82.511
- HF       1   73.026 83.026

Step:  AIC=79.33
AE_90D ~ HF + BA2 + FEV1 + Home_O2

          Df Deviance    AIC
<none>         69.326 79.326
- FEV1     1   72.081 80.081
- BA2      1   72.483 80.483
- Home_O2  1   73.297 81.297
- HF       1   73.298 81.298
> extractOR(reduced.model2)
              OR  lcl   ucl      p
(Intercept) 0.48 0.06  3.66 0.4750
HFYes       7.04 1.03 49.27 0.0415
BA2Yes      3.30 0.89 14.08 0.0837
FEV1        0.29 0.05  1.23 0.1195
Home_O2Yes  5.69 1.03 35.40 0.0497


그런데 Web-R로 돌린 값은 아래와 같습니다.

(Intercept)0.11400.89300.130.89841.120.206.87
FEV1-1.31180.7604-1.730.08450.270.051.07
Home_O2Yes1.15930.78891.470.14173.190.6715.77


p-value threshold entering multiple regression가 달라서 그런가 해서 0.1로 바꿔봤는데, 변화가 없습니다.

논문 몇개를 Web-R로 logistic regression을 했는데 맨붕이 되었습니다.

도와주셨으면 합니다. ㅜㅜ

(파일 첨부했습니다.)


감사합니다.


I want to
List
No. Subject Author Date
1153 변수를 변경하는데 질문이 있습니다. [2] 최00 2019.01.21
1152 SOS file UnuDIo 2019.09.02
1151 클리블랜드 점그래프 그리기 오류 관련 [5] Mefirst~! 2016.02.09
1150 인류 역사상 최고의 천재였다는 남자.jpg 소꿈노리 2018.05.25
1149 ANCOVA에 대해서 여쭤보고 싶습니다. [5] 고든 2015.09.13
1148 교수님 데이터 편집 질문드립니다. [1] file 백지백지 2019.08.02
1147 ggplot에서 y axis limit정하는 방법 여쭙니다. [2] fascinate23 2018.10.26
1146 matchIt 함수 사용시 질문 있습니다. [1] YJK 2019.02.23
1145 time ROC 에 대해 질문드립니다. file YH 2018.04.19
1144 r studio server 가 오늘(3/15) 만료된다고 합니다 [2] 스튜던트 2018.03.15
1143 web-r 에서 NRI, IDI 할수 있는지요,, [4] hawk1227 2016.04.07
1142 PSM 에서 standardized difference 구할 수 있는 방법 여쭙습니다. [1] shiny365 2018.01.29
1141 [책 소개] Mastering RStudio – Develop, Communicate, and Collaborate with R file fermat39 2015.12.18
1140 mytable에서 하는 통계법 질문 [1] 수수 2019.07.11
1139 어제 강의 너무 잘 들었습니다 [5] 마술샘 2016.02.29
1138 2 X 2 table에서 categorical variable을 비교한 P 값 [2] namuhanayeyo 2016.05.01
1137 ggplot 이용시 자꾸 오류가 납니다~ [1] 돌님 2017.10.23
1136 R markdown 관련 질문드립니다. [1] Lloyd 2016.04.06
1135 로지스틱 회귀분석에 관하여 질문드립니다. [2] tympa 2015.12.09
1134 nomogram [5] 횽횽 2018.05.16
Write Tag