আপনার প্রথম প্রশ্নের ব্যাখ্যার জন্য দুটি উপায় রয়েছে যা আপনি এটি জিজ্ঞাসা করেছেন এমন দুটি উপায়ে প্রতিফলিত: "প্রজাতিগুলি কি হোস্ট গাছের সাথে যুক্ত?" এবং, "বৃষ্টিপাতের প্রভাবে প্রজাতিরা কি গাছপালা হোস্ট করার জন্য স্বাধীন?"
প্রথম ব্যাখ্যাটি যৌথ স্বাধীনতার একটি মডেলের সাথে সামঞ্জস্য করে , যা বলে যে প্রজাতি এবং হোস্টগুলি নির্ভরশীল, তবে বৃষ্টি হয়েছে কিনা তা নিয়ে যৌথভাবে স্বাধীন:
পিs h r= পিs hপিR
যেখানে the এমন একটি সম্ভাবনা যা কোনও পর্যবেক্ষণ কোষে পড়ে যেখানে সূচী প্রজাতি, হোস্ট প্রকার এবং বৃষ্টিপাতের মান, the প্রান্তিক সম্ভাবনা কক্ষ যেখানে আমরা বৃষ্টিপাতের পরিবর্তনশীলের উপরে পড়ে এবং হ'ল বৃষ্টিপাতের প্রান্তিক সম্ভাবনা।পিs h r( গুলি , এইচ , আর )shrpsh(s,h,⋅)pr
দ্বিতীয় ব্যাখ্যাটি শর্তাধীন স্বাধীনতার একটি মডেলের সাথে সামঞ্জস্য করে , যা বলে যে প্রজাতি এবং হোস্টগুলি বৃষ্টি হয়েছে কিনা তা প্রদত্ত স্বাধীন:
psh|r=ps|rph|r বাpshr=psrphr/pr
যেখানে এর শর্তাধীন সম্ভাব্যতা সেল, একটি মান দেওয়া । ( s , h , r ) rpsh|r(s,h,r)r
আপনি এই মডেলগুলিকে আরে পরীক্ষা করতে পারেন ( loglin
খুব ভাল কাজ করবে তবে আমি এর সাথে আরও পরিচিত glm
):
count <- c(12,15,10,13,11,12,12,7)
species <- rep(c("a", "b"), 4)
host <- rep(c("c","c", "d", "d"), 2)
rain <- c(rep(0,4), rep(1,4))
my.table <- xtabs(count ~ host + species + rain)
my.data <- as.data.frame.table(my.table)
mod0 <- glm(Freq ~ species + host + rain, data=my.data, family=poisson())
mod1 <- glm(Freq ~ species * host + rain, data=my.data, family=poisson())
mod2 <- glm(Freq ~ (species + host) * rain, data=my.data, family=poisson())
anova(mod0, mod1, test="Chi") #Test of joint independence
anova(mod0, mod2, test="Chi") #Test of conditional independence
উপরে, mod1
যৌথ স্বাধীনতার mod2
সাথে মিলে যায় এবং শর্তাধীন স্বাধীনতার mod0
সাথে , যেখানে পারস্পরিক স্বাধীনতার মডেলটির সাথে । আপনি প্যারামিটারের প্রাক্কলনগুলি ইত্যাদি ব্যবহার করে দেখতে পারেন usual আপনার সরবরাহিত ডেটাগুলিতে নাল মডেলটি আসলে পর্যাপ্তভাবে ফিট করে।pshr=psphprsummary(mod2)
আপনার প্রথম প্রশ্নের কাছে যাওয়ার একটি ভিন্ন উপায় fisher.test(xtabs(count ~ host + species))
হ'ল ফিশারের সঠিক পরীক্ষা ( ) ধসে পড়া 2x2 টেবিলের উপর (প্রথম ব্যাখ্যা) বা ম্যান্টেল-হেইনসেল পরীক্ষা ( mantelhaen.test(xtabs(count ~ host + species + rain))
) 2-স্তরিত 2x2 টেবিলের জন্য বা স্ট্রাস্টিফিকেশনকে সম্মান করে এমন একটি ক্রমশক্তি পরীক্ষা লিখতে হবে (দ্বিতীয় ব্যাখ্যা)।
আপনার দ্বিতীয় প্রশ্নটি তুলে ধরতে, প্রজাতি এবং হোস্টের মধ্যে সম্পর্ক বৃষ্টি হয়েছে কিনা তার উপর নির্ভর করে?
mod3 <- glm(Freq ~ species*host*rain - species:host:rain, data=my.data, family=poisson())
mod4 <- glm(Freq ~ species*host*rain, data=my.data, family=poisson())
anova(mod3, mod4, test=”Chi”)
pchisq(deviance(mod3), df.residual(mod3), lower=F)
পুরো মডেলটি mod4
স্যাচুরেটেড, তবে আপনি mod3
উপরে যেমনটি করেছেন ঠিক তেমন বিচ্যুতি দেখে আপনি প্রশ্নের প্রভাবটি পরীক্ষা করতে পারেন ।