试图找到R中比例差异的置信区间。

Question

这是我的代码。请注意，我是一个正在学习R而不是统计学专业的本科生。

Datin$Year <- substring(Datin$Date,nchar(Datin$Date)-3,nchar(Datin$Date))
Datin.17= Datin[Datin$Year == "2017",]
Datin.12=Datin[Datin$Year == "2012",]
Datin.17.p2 <- Datin.17[Datin.17$Heroin == "Y" | Datin.17$Cocaine == "Y" |
                          Datin.17$Fentanyl == "Y",]
Datin.12.p2 <- Datin.12[Datin.12$Heroin == "Y" | Datin.12$Cocaine == "Y" |
                          Datin.12$Fentanyl == "Y",]
#
tab.2017 <- table(Datin.17)
prop.test(tab.2017[2],sum(tab.2017),conf.leve=0.90)$conf.int
tab.2012 <- table(Datin.12)
prop.test(tab.2012[1],sum(tab.2012),conf.leve=0.90)$conf.int
dat.tabr <- cbind(dat.tab[,2], dat.tab[,1])
prop.test(dat.tabr)

我正在尝试为两个意外毒品死亡人口比例（2012年和2017年）之间的差异找到一个置信区间。

我对此很陌生，所以请尽可能简单地解释一下。如果需要进一步澄清，我们深表歉意。