Nhận xét của Macro là chính xác, cũng như Andy. Đây là một ví dụ.
> 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
Thay vì xem xét các thuật ngữ x2
và x2^2
thuật ngữ một cách riêng biệt, "kiểm tra chunk" là thử nghiệm 2-df kiểm tra giả thuyết khống cho rằng các hệ số của các thuật ngữ này đều bằng không (tôi tin rằng nó thường được gọi là "kiểm tra F tuyến tính chung" ). Giá trị p cho thử nghiệm đó là 0,0037 được đưa ra bởi anova(ols1)
.
Lưu ý rằng trong rms
gói, bạn phải xác định x2
các điều khoản như pol(x2, 2)
cho anova.rms()
biết rằng họ đang được thử nghiệm với nhau.
anova.rms()
sẽ thực hiện các thử nghiệm tương tự cho các biến dự đoán được biểu diễn dưới dạng các khối vuông bị hạn chế bằng cách sử dụng, ví dụ rcs(x2, 3)
, và cho các biến dự báo phân loại. Nó cũng sẽ bao gồm các điều khoản tương tác trong "khối".
Nếu bạn muốn thực hiện một bài kiểm tra khối cho các biến dự đoán "cạnh tranh" chung, như đã đề cập trong đoạn trích dẫn, tôi tin rằng bạn sẽ phải thực hiện thủ công bằng cách khớp riêng hai mô hình và sau đó sử dụng anova(model1, model2)
. [Chỉnh sửa: điều này không chính xác - xem câu trả lời của Frank Harrell.]