এছাড়াও আপনি যদি ফিলারারের আত্মবিশ্বাসের ব্যবধানটি না ব্যবহার করে গণনা করতে চান mratios
(সাধারণত আপনি সাধারণ এলএম ফিট চান না তবে উদাহরণস্বরূপ একটি গ্লમર বা গ্লার.এনবি ফিট), আপনি FiellerRatioCI
মডেলটির আউটপুট মডেল সহ নিম্নলিখিত ফাংশনটি ব্যবহার করতে পারেন , সংখ্যার প্যারামিটারের নাম aname, ডোনোমিটার প্যারামিটারের নাম রাখা। আপনি সরাসরি FiellerRatioCI_basic ফাংশন প্রদান করতে পারেন, a, b এবং a এবং b এর মধ্যে কোভারিয়েন্স ম্যাট্রিক্স।
দ্রষ্টব্য, এখানে আলফা কোডটি 0.09 এবং কোডের 1.96 এর মধ্যে "হার্ডকোডযুক্ত"। আপনার পছন্দের যে কোনও শিক্ষার্থীর স্তর দ্বারা আপনি এগুলি প্রতিস্থাপন করতে পারেন।
FiellerRatioCI <- function (x, ...) { # generic Biomass Equilibrium Level
UseMethod("FiellerRatioCI", x)
}
FiellerRatioCI_basic <- function(a,b,V,alpha=0.05){
theta <- a/b
v11 <- V[1,1]
v12 <- V[1,2]
v22 <- V[2,2]
z <- qnorm(1-alpha/2)
g <- z*v22/b^2
C <- sqrt(v11 - 2*theta*v12 + theta^2 * v22 - g*(v11-v12^2/v22))
minS <- (1/(1-g))*(theta- g*v12/v22 - z/b * C)
maxS <- (1/(1-g))*(theta- g*v12/v22 + z/b * C)
return(c(ratio=theta,min=minS,max=maxS))
}
FiellerRatioCI.glmerMod <- function(model,aname,bname){
V <- vcov(model)
a<-as.numeric(unique(coef(model)$culture[aname]))
b<-as.numeric(unique(coef(model)$culture[bname]))
return(FiellerRatioCI_basic(a,b,V[c(aname,bname),c(aname,bname)]))
}
FiellerRatioCI.glm <- function(model,aname,bname){
V <- vcov(model)
a <- coef(model)[aname]
b <- coef(model)[bname]
return(FiellerRatioCI_basic(a,b,V[c(aname,bname),c(aname,bname)]))
}
উদাহরণ (স্ট্যান্ডার্ড গ্ল্যাম বেসিক উদাহরণের ভিত্তিতে):
counts <- c(18,17,15,20,10,20,25,13,12)
outcome <- gl(3,1,9)
treatment <- gl(3,3)
glm.D93 <- glm(counts ~ outcome + treatment, family = poisson())
FiellerRatioCI(glm.D93,"outcome2","outcome3")
ratio.outcome2 min max
1.550427 -2.226870 17.880574