warning∞
লাইন বরাবর উত্পন্ন ডেটা সহ
x <- seq(-3, 3, by=0.1)
y <- x > 0
summary(glm(y ~ x, family=binomial))
সতর্কতা করা হয়:
Warning messages:
1: glm.fit: algorithm did not converge
2: glm.fit: fitted probabilities numerically 0 or 1 occurred
যা খুব স্পষ্টভাবে এই ডেটাগুলির মধ্যে নির্মিত নির্ভরতা প্রতিফলিত করে।
দ Wald, পরীক্ষা দিয়ে পাওয়া যায় summary.glmবা waldtestএ lmtestপ্যাকেজ। সম্ভাবনা অনুপাত পরীক্ষা দিয়ে সঞ্চালিত হয় anovaবা lrtestএ lmtestপ্যাকেজ। উভয় ক্ষেত্রেই, তথ্য ম্যাট্রিক্স অসীম মূল্যবান, এবং কোনও অনুমান পাওয়া যায় না। বরং, আর আউটপুট উত্পাদন করে তবে আপনি এটি বিশ্বাস করতে পারবেন না। এই ক্ষেত্রে আর যে অনুভূতিটি সাধারণত উত্পন্ন করে তার মধ্যে পি-মানগুলির খুব কাছাকাছি থাকে। এর কারণ হল ওআর মধ্যে নির্ভুলতার ক্ষতি হ্রাস মাত্রার অর্ডার যা ভেরিয়েন্স-কোভারিয়েন্স ম্যাট্রিক্সে যথার্থতার ক্ষতি হয়।
কিছু সমাধান এখানে বর্ণিত:
এক-পদক্ষেপের অনুমানকারী ব্যবহার করুন,
এক ধাপের অনুমানকারীগুলির নিম্ন পক্ষপাত, দক্ষতা এবং সাধারণকরণের পক্ষে অনেক তত্ত্ব রয়েছে। আর-তে কোনও এক-পদক্ষেপের অনুমানকারী নির্দিষ্ট করা সহজ এবং ফলাফলগুলি সাধারণত পূর্বাভাস এবং অনুমানের জন্য খুব অনুকূল। এবং এই মডেলটি কখনই বিচ্যুত হবে না, কারণ পুনরাবৃত্তকারী (নিউটন-রাফসন) কেবল এটি করার সুযোগ পায় না!
fit.1s <- glm(y ~ x, family=binomial, control=glm.control(maxit=1))
summary(fit.1s)
দেয়:
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.03987 0.29569 -0.135 0.893
x 1.19604 0.16794 7.122 1.07e-12 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
সুতরাং আপনি দেখতে পারেন ভবিষ্যদ্বাণীগুলি প্রবণতার দিককে প্রতিফলিত করে। এবং অনুমানগুলি হ'ল প্রবণতাগুলির প্রতি উচ্চতর পরামর্শদাতা যা আমরা সত্য বলে বিশ্বাস করি।

একটি স্কোর পরীক্ষা সঞ্চালন,
স্কোর (অথবা রাও) পরিসংখ্যাত সম্ভাবনা অনুপাত থেকে পৃথক ও পরিসংখ্যান Wald। বিকল্প অনুমানের অধীনে এর বৈকল্পিকতার মূল্যায়নের প্রয়োজন নেই। আমরা নাল নীচে মডেল ফিট:
mm <- model.matrix( ~ x)
fit0 <- glm(y ~ 1, family=binomial)
pred0 <- predict(fit0, type='response')
inf.null <- t(mm) %*% diag(binomial()$variance(mu=pred0)) %*% mm
sc.null <- t(mm) %*% c(y - pred0)
score.stat <- t(sc.null) %*% solve(inf.null) %*% sc.null ## compare to chisq
pchisq(score.stat, 1, lower.tail=F)
χ2
> pchisq(scstat, df=1, lower.tail=F)
[,1]
[1,] 1.343494e-11
উভয় ক্ষেত্রেই আপনার অনন্তের একটি OR এর জন্য অনুমান রয়েছে।
, এবং একটি আত্মবিশ্বাসের ব্যবধানের জন্য মিডিয়ান নিরপেক্ষ অনুমান ব্যবহার করুন।
আপনি মধ্যম পক্ষপাতহীন প্রাক্কলন ব্যবহার করে অসীম প্রতিক্রিয়া অনুপাতের জন্য একটি মিডিয়ান নিরপেক্ষ, অ-একবচন 95% সিআই উত্পাদন করতে পারেন। আর এর প্যাকেজটি epitoolsএটি করতে পারে। এবং আমি এখানে এই অনুমানক বাস্তবায়নের একটি উদাহরণ দিচ্ছি: বার্নোল্লি নমুনা দেওয়ার জন্য আত্মবিশ্বাসের ব্যবধান