p値よりも信頼区間に興味があります。これがブートストラップ近似です。
最初に間隔の長さを計算し、チェックします:
Lrec = as.numeric(as.Date("2010-07-01") - as.Date("2007-12-02")) # Length of recession
Lnrec = as.numeric(as.Date("2007-12-01") - as.Date("2001-12-01")) # L of non rec period
(43/Lrec)/(50/Lnrec)
[1] 2.000276
このチェックでは、パブリケーションの結果(101%増加)とわずかに異なる結果(100.03%増加)が得られます。ブートストラップを続行します(2回実行します)。
N = 100000
k=(rpois(N, 43)/Lrec)/(rpois(N, 50)/Lnrec)
c(quantile(k, c(0.025, .25, .5, .75, .975)), mean=mean(k), sd=sd(k))
2.5% 25% 50% 75% 97.5% mean sd
1.3130094 1.7338545 1.9994599 2.2871373 3.0187243 2.0415132 0.4355660
2.5% 25% 50% 75% 97.5% mean sd
1.3130094 1.7351970 2.0013578 2.3259023 3.0173868 2.0440240 0.4349706
増加の95%信頼区間は31%〜202%です。