অ্যানির মতোই ম্যাক্রোর মন্তব্য সঠিক is এখানে একটি উদাহরণ।
> 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)
। [সম্পাদনা: এটি ভুল - ফ্র্যাঙ্ক হ্যারেলের উত্তর দেখুন।]