패키지 multinom
기능을 사용하여 p- 값을 얻으려면 어떻게해야 합니까?nnet
R
결과 변수로 "병리학 점수"(Absent, Mild, Severe)와 나이 (두 가지 요소 : 20/30 일) 및 치료 그룹 (4 가지 요소 : ATB없이 감염 됨; 감염된 +)으로 구성된 데이터 세트가 있습니다. ATB1; 감염된 + ATB2; 감염된 + ATB3).
먼저 서수 회귀 모형을 적합 시키려고했는데, 이는 종속 변수 (선형)의 특성을 고려할 때 더 적절 해 보입니다. 그러나 확률 비례의 가정은 (그래픽으로) 심각하게 위반되어 nnet
패키지를 사용하는 대신 다항식 모델을 사용해야했습니다 .
먼저 기준 범주로 사용해야하는 결과 수준을 선택했습니다.
Data$Path <- relevel(Data$Path, ref = "Absent")
그런 다음 독립 변수에 대한 기준 범주를 설정해야했습니다.
Data$Age <- relevel(Data$Age, ref = "Twenty")
Data$Treat <- relevel(Data$Treat, ref="infected without ATB")
모델:
test <- multinom(Path ~ Treat + Age, data = Data)
# weights: 18 (10 variable)
initial value 128.537638
iter 10 value 80.623608
final value 80.619911
converged
출력 :
Coefficients:
(Intercept) infected+ATB1 infected+ATB2 infected+ATB3 AgeThirty
Moderate -2.238106 -1.1738540 -1.709608 -1.599301 2.684677
Severe -1.544361 -0.8696531 -2.991307 -1.506709 1.810771
Std. Errors:
(Intercept) infected+ATB1 infected+ATB2 infected+ATB3 AgeThirty
Moderate 0.7880046 0.8430368 0.7731359 0.7718480 0.8150993
Severe 0.6110903 0.7574311 1.1486203 0.7504781 0.6607360
Residual Deviance: 161.2398
AIC: 181.2398
pt(abs(summary1$coefficients / summary1$standard.errors), df=nrow(Data)-10, lower=FALSE)
(Intercept) infected+ATB1 infected+ATB2 infected+ATB3 AgeThirty
Moderate 0.002670340 0.08325396 0.014506395 0.02025858 0.0006587898
Severe 0.006433581 0.12665278 0.005216581 0.02352202 0.0035612114
multinom
nnet
의anova()
기능을.