मैक्रों की टिप्पणी सही है, जैसा कि एंडी है। यहाँ एक उदाहरण है।
> library(rms)
>
> set.seed(1)
> d <- data.frame(x1 = rnorm(50), x2 = rnorm(50))
> d <- within(d, y <- 1 + 2*x1 + 0.3*x2 + 0.2*x2^2 + rnorm(50))
>
> ols1 <- ols(y ~ x1 + pol(x2, 2), data=d) # pol(x2, 2) means include x2 and x2^2 terms
> ols1
Linear Regression Model
ols(formula = y ~ x1 + pol(x2, 2), data = d)
Model Likelihood Discrimination
Ratio Test Indexes
Obs 50 LR chi2 79.86 R2 0.798
sigma 0.9278 d.f. 3 R2 adj 0.784
d.f. 46 Pr(> chi2) 0.0000 g 1.962
Residuals
Min 1Q Median 3Q Max
-1.7463 -0.4789 -0.1221 0.4465 2.2054
Coef S.E. t Pr(>|t|)
Intercept 0.8238 0.1654 4.98 <0.0001
x1 2.0214 0.1633 12.38 <0.0001
x2 0.2915 0.1500 1.94 0.0581
x2^2 0.2242 0.1163 1.93 0.0602
> anova(ols1)
Analysis of Variance Response: y
Factor d.f. Partial SS MS F P
x1 1 131.894215 131.8942148 153.20 <.0001
x2 2 10.900163 5.4500816 6.33 0.0037
Nonlinear 1 3.196552 3.1965524 3.71 0.0602
REGRESSION 3 156.011447 52.0038157 60.41 <.0001
ERROR 46 39.601647 0.8609054
इसके x2
और x2^2
शर्तों पर अलग से विचार करने के बजाय , "चंक टेस्ट" 2-df टेस्ट है जो अशक्त परिकल्पना का परीक्षण करता है कि उन शब्दों के गुणांक दोनों शून्य हैं (मेरा मानना है कि इसे आमतौर पर "सामान्य रैखिक एफ-टेस्ट" की तरह कुछ कहा जाता है )। उस परीक्षण का पी-मान 0.0037 द्वारा दिया गया है anova(ols1)
।
ध्यान दें कि rms
पैकेज में, आपको यह जानने के लिए x2
शर्तों को निर्दिष्ट करना होगा कि उन्हें एक साथ परीक्षण किया जाना है।pol(x2, 2)
anova.rms()
anova.rms()
भविष्यवक्ता चर के लिए इसी तरह के परीक्षण करेंगे जो कि उदाहरण के लिए rcs(x2, 3)
, और श्रेणीबद्ध भविष्यवाणियों के लिए क्यूबिक स्प्लिन के रूप में प्रतिनिधित्व किए जाते हैं । इसमें "हिस्सा" में बातचीत की शर्तें भी शामिल होंगी।
यदि आप सामान्य "प्रतिस्पर्धी" भविष्यवक्ता चर के लिए एक चंक परीक्षण करना चाहते थे, जैसा कि उद्धरण में उल्लेख किया गया है, मेरा मानना है कि आपको इसे दो मॉडलों को अलग-अलग फिटिंग और फिर उपयोग करके मैन्युअल रूप से करना होगा anova(model1, model2)
। [संपादित करें: यह गलत है - फ्रैंक हरेल का उत्तर देखें।]