如何将两个数字与置信区间相乘？

如何解决如何将两个数字与置信区间相乘？

如何将两个具有置信区间的数字相乘并得到具有新置信区间的结果？

我的情况如下。

一种疾病有两个测试，测试 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，以获得赔率。 但我不知道如何在乘法后获得置信区间。 如果可能的话，你能用代码教我怎么做吗？ 提前致谢！