问题描述
如何将两个具有置信区间的数字相乘并得到具有新置信区间的结果?
我的情况如下。
一种疾病有两个测试,测试 A 和测试 B。
这是测试 A 的混淆矩阵。
data.frame(disease=c(30,70),No_disease=c(10,90),row.names =c("Test A positive","Test A negative"))
可以使用下面的代码计算正似然值。
library(epiR)
datA <- as.table(matrix(c(30,70,10,nrow = 2))
colnames(datA) <- c("dis+","dis-")
rownames(datA) <- c("Test+","Test-")
rvalA <- epi.tests(datA,conf.level = 0.95)
print(rvalA)
正似然比 3.00 (1.55,5.80)
测试 B 混淆矩阵。
data.frame(disease=c(60,40),No_disease=c(40,60),row.names =c("Test B positive","Test B negative"))
测试 B 的正似然值。
datB <- as.table(matrix(c(60,40,nrow = 2))
colnames(datB) <- c("dis+","dis-")
rownames(datB) <- c("Test+","Test-")
rvalB <- epi.tests(datB,conf.level = 0.95)
print(rvalB)
正似然比 1.50 (1.12,2.00)
假设有一个患者 A 测试呈阳性,然后 B 测试呈阳性。 我想乘以这些正似然比,如 3 x 1.5,以获得赔率。 但我不知道如何在乘法后获得置信区间。 如果可能的话,你能用代码教我怎么做吗? 提前致谢!
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)