快速计算人年发病率及人年发病率95%CI的计算

SCI 文献中常常出现 per1000 person-years，具体计算公式：

每千人年发病率 （per1000 person-years） = 发生结局的人数/总的人年数*1000

人年的发病率置信区间可通过泊松回归分布计算：

a0=结局事件数，b0=随访人年（years），c0=发病密度

c0 = a0 / b0

per1000 person-years：

c0*1000 = a0 / b0 *1000

如何快速整理 

a0= 51
b0= 28933
c01000=a0/b0*1000

result0 <- prop.test(a0, b0,p =0.5,alternative = "two.sided",conf.level= 0.95)
ci0 <- result0[["conf.int"]]
rennianCI1000 <- paste("(", round(ci0[1] * 1000, 2), ", ", round(ci0[2] * 1000, 2), ")", sep = "")
rennianCI1000

c01000; rennianCI1000