ฉันเพิ่งอ่านบทความนี้ซึ่งอธิบายถึงวิธีการคำนวณความสามารถในการทำซ้ำ (ความน่าเชื่อถือหรือความสัมพันธ์ภายในอินทราเน็ต) ของการวัดผ่านการสร้างแบบจำลองเอฟเฟกต์ผสม รหัส R จะเป็น:
#fit the model
fit = lmer(dv~(1|unit),data=my_data)
#obtain the variance estimates
vc = VarCorr(fit)
residual_var = attr(vc,'sc')^2
intercept_var = attr(vc$id,'stddev')[1]^2
#compute the unadjusted repeatability
R = intercept_var/(intercept_var+residual_var)
#compute n0, the repeatability adjustment
n = as.data.frame(table(my_data$unit))
k = nrow(n)
N = sum(n$Freq)
n0 = (N-(sum(n$Freq^2)/N))/(k-1)
#compute the adjusted repeatability
Rn = R/(R+(1-R)/n0)
ฉันเชื่อว่าวิธีการนี้สามารถใช้ในการคำนวณความน่าเชื่อถือของเอฟเฟกต์ (เช่นผลรวมความเปรียบต่างของตัวแปรที่มี 2 ระดับ) ดังที่:
#make sure the effect variable has sum contrasts
contrasts(my_data$iv) = contr.sum
#fit the model
fit = lmer(dv~(iv|unit)+iv,data=my_data)
#obtain the variance estimates
vc = VarCorr(fit)
residual_var = attr(vc,'sc')^2
effect_var = attr(vc$id,'stddev')[2]^2
#compute the unadjusted repeatability
R = effect_var/(effect_var+residual_var)
#compute n0, the repeatability adjustment
n = as.data.frame(table(my_data$unit,my_data$iv))
k = nrow(n)
N = sum(n$Freq)
n0 = (N-(sum(n$Freq^2)/N))/(k-1)
#compute the adjusted repeatability
Rn = R/(R+(1-R)/n0)
คำถามสามข้อ:
- การคำนวณข้างต้นเพื่อให้ได้การประมาณค่าจุดของความสามารถในการทำซ้ำของเอฟเฟกต์ทำให้รู้สึกหรือไม่?
- เมื่อฉันมีตัวแปรหลายตัวที่ฉันต้องการประเมินซ้ำการเพิ่มพวกเขาทั้งหมดให้พอดี (เช่น
lmer(dv~(iv1+iv2|unit)+iv1+iv2
) ดูเหมือนว่าจะให้ค่าการประเมินซ้ำที่สูงกว่าการสร้างแบบจำลองแยกสำหรับแต่ละเอฟเฟกต์ สิ่งนี้ทำให้เกิดความรู้สึกคำนวณกับฉันเนื่องจากการรวมของเอฟเฟ็กต์หลายอย่างมีแนวโน้มที่จะลดความแปรปรวนที่เหลืออยู่ แต่ฉันไม่แน่ใจว่าการประเมินความสามารถในการทำซ้ำที่เกิดขึ้นนั้นถูกต้อง ที่พวกเขา? - ดังกล่าวข้างต้นกระดาษอ้างให้เห็นว่าโปรไฟล์โอกาสอาจช่วยฉันได้รับช่วงความเชื่อมั่นสำหรับการประมาณการการทำซ้ำ แต่เท่าที่ฉันสามารถบอก
confint(profile(fit))
ให้เพียงช่วงเวลาสำหรับการตัดและผลกระทบความแปรปรวนในขณะที่ผมยังจะต้องช่วงเวลาสำหรับการแปรปรวนที่เหลือในการคำนวณ ช่วงเวลาสำหรับการทำซ้ำได้หรือไม่