এগুলিকে প্রতিসাম্য হিসাবে বিশ্বাস করা হয় কারণ প্রায়শই প্রায়শই প্রায় সাধারণ ব্যবহার হয়। এই এক পি প্রায় 0.5 এর ক্ষেত্রে যথেষ্ট ভাল কাজ করে। binom.test
অন্যদিকে "সঠিক" ক্লোপার-পিয়ারসন অন্তরগুলি প্রতিবেদন করে যা এফ বিতরণের উপর ভিত্তি করে ( উভয় পদ্ধতির সঠিক সূত্রের জন্য এখানে দেখুন )। আমরা যদি ক্লোপার-পিয়ারসন ব্যবধানটি আর-এ প্রয়োগ করি তবে এটি এমন কিছু হবে ( দ্রষ্টব্য দেখুন ):
Clopper.Pearson <- function(x, n, conf.level){
alpha <- (1 - conf.level) / 2
QF.l <- qf(1 - alpha, 2*n - 2*x + 2, 2*x)
QF.u <- qf(1 - alpha, 2*x + 2, 2*n - 2*x)
ll <- if (x == 0){
0
} else { x / ( x + (n-x+1)*QF.l ) }
uu <- if (x == 0){
0
} else { (x+1)*QF.u / ( n - x + (x+1)*QF.u ) }
return(c(ll, uu))
}
আপনি লিঙ্কে এবং প্রয়োগে উভয়ই দেখতে পান যে উপরের এবং নিম্ন সীমাটির সূত্রটি সম্পূর্ণ আলাদা। একটি প্রতিসাম্য আত্মবিশ্বাসের ব্যবধানের একমাত্র ক্ষেত্রে যখন পি = 0.5 থাকে। লিঙ্কটি থেকে সূত্রগুলি ব্যবহার করে এবং অ্যাকাউন্টে নেওয়া এই ক্ষেত্রে এটি কীভাবে আসে তা নিজেকে আবিষ্কার করা সহজ।n = 2 × x
আমি ব্যক্তিগতভাবে এটি একটি লজিস্টিক পদ্ধতির উপর ভিত্তি করে আত্মবিশ্বাসের ব্যবধানগুলি ভালভাবে বুঝতে পেরেছি। দ্বিপদী তথ্য সাধারণত লগইট লিঙ্ক ফাংশনটি ব্যবহার করে মডেল করা হয়, এটি সংজ্ঞায়িত করা হয়:
l o g i t (x)=লগ( এক্স1 - এক্স)
এই লিঙ্কটি একটি সাধারণ বিতরণে লজিস্টিক রিগ্রেশনে ত্রুটি শব্দটি "মানচিত্র" ফাংশন করে। ফলস্বরূপ, লজিস্টিক কাঠামোর আত্মবিশ্বাসের ব্যবধানগুলি লজিট মানগুলির চারপাশে প্রতিসম হয়, অনেকটা ক্লাসিক লিনিয়ার রিগ্রেশন ফ্রেমওয়ার্কের মতো। লিনিট ট্রান্সফর্মেশনটি লিনিয়ার রিগ্রেশন-এর চারপাশে পুরো স্বাভাবিকতা-ভিত্তিক তত্ত্বটি ব্যবহারের জন্য যথাযথভাবে ব্যবহৃত হয়।
বিপরীত রূপান্তর করার পরে:
l ও g আমি টি- 1( এক্স ) = ইএক্স1 + ইএক্স
আপনি আবার একটি অসম্পূর্ণ ব্যবধান পান। এখন এই আত্মবিশ্বাসের অন্তরগুলি আসলে পক্ষপাতদুষ্ট। তাদের কভারেজটি আপনি যা আশা করবেন তা নয়, বিশেষত দ্বিপদী বিতরণের সীমানায়। তবুও, একটি দৃষ্টান্ত হিসাবে তারা আপনাকে দেখায় যে দ্বি-দ্বি বিতরণে অসামান্য আত্মবিশ্বাসের অন্তর রয়েছে log
আর এর একটি উদাহরণ:
logit <- function(x){ log(x/(1-x)) }
inv.logit <- function(x){ exp(x)/(1+exp(x)) }
x <- c(0.2, 0.5, 0.8)
lx <- logit(x)
upper <- lx + 2
lower <- lx - 2
logxtab <- cbind(lx, upper, lower)
logxtab # the confidence intervals are symmetric by construction
xtab <- inv.logit(logxtab)
xtab # back transformation gives asymmetric confidence intervals
দ্রষ্টব্য : আসলে, আর বিটা বিতরণ ব্যবহার করে তবে এটি সম্পূর্ণ সমতুল্য এবং গণনাগতভাবে কিছুটা দক্ষ। আর-তে বাস্তবায়ন আমি এখানে দেখানো থেকে পৃথক, তবে এটি ঠিক একই ফলাফল দেয় result