কেউ এখনও কোনও বায়েশিয়ান পদ্ধতির পরামর্শ দেয়নি? আমি জানি প্রশ্নটি ইতিমধ্যে উত্তর দেওয়া হয়েছে, কিন্তু হেক কি। নীচে কেবলমাত্র 3-পক্ষের মরার জন্য, তবে আমি অনুমান করছি যে এটি কীভাবে ঠিক করা যায় obviousn = 37
প্রথমে, @ গ্লেন_বি যা বলেছিলেন তার সাথে সামঞ্জস্য রেখে একজন বেইসিয়ান আসলে মারা যাবেন তা ঠিক ন্যায্য কিনা সে সম্পর্কে আগ্রহী নয় - তা নয়। তিনি (গুলি) কীসের বিষয়ে চিন্তা করেন তা হ'ল এটি যথেষ্ট নিকটবর্তী কিনা , প্রসঙ্গে "যথেষ্ট" অর্থ যেই হোক না কেন, প্রতিটি পক্ষের পক্ষে 5% ন্যায্য বলে।
পি1পি2পি3p=(p1,p2,p3)p1+p2+p3=1α0=(1,1,1)
X=(X1,X2,X3)Xp=(p1,p2,p3)α=(x1+1,x2+1,x3+1)
p
যাইহোক, এখানে কীভাবে (আর এর সাথে) রয়েছে:
প্রথমে কিছু তথ্য পান। আমরা মরা 500 বার রোল।
set.seed(1)
y <- rmultinom(1, size = 500, prob = c(1,1,1))
(আমরা একটি সুষ্ঠু ডাই দিয়ে শুরু করছি; বাস্তবে এই ডেটাগুলি পর্যবেক্ষণ করা হবে))
p
library(MCMCpack)
A <- MCmultinomdirichlet(y, alpha0 = c(1,1,1), mc = 5000)
plot(A)
summary(A)
পরিশেষে, আসুন আমাদের পরবর্তী সম্ভাবনাগুলি (ডেটা পর্যবেক্ষণ করার পরে) অনুমান করতে পারি যে প্রতিটি সমন্বয়কালে মৃতু্যটি 0.05 এর মধ্যে থাকে।
B <- as.matrix(A)
f <- function(x) all((x > 0.28)*(x < 0.38))
mean(apply(B, MARGIN = 1, FUN = f))
ফলাফলটি আমার মেশিনে প্রায় 0.9486। (সত্যিই অবাক হওয়ার কিছু নেই Not
দ্রুত মন্তব্য: আমাদের পক্ষে উদাহরণস্বরূপ কোনও অ-তথ্যমূলক ব্যবহার করা সম্ভবত যুক্তিযুক্ত নয়। যেহেতু একটি প্রশ্নও রয়েছে যে সম্ভবত মরা প্রথম স্থানে প্রায় ভারসাম্যহীন প্রদর্শিত হয়, তাই সমস্ত স্থানাঙ্কে 1/3 এর কাছাকাছি ঘনত্বযুক্ত এমন একটি অগ্রাধিকারটি বেছে নেওয়া আরও ভাল। এর উপরে কেবল "ন্যায্য কাছাকাছি" এর অনুমানযুক্ত উত্তর সম্ভাবনা আরও উচ্চতর হয়ে উঠত।