0
を決定し、我々は関連する関数ecdfを計算し、プロットすることができますは、我々はランダムにサンプリングされた分布を持っていると仮定すると経験分布におけるジャンプ
set.seed(1)
t1 <- rnorm(10000,mean=20)
t1 <- sort(t1)
t1[1:1000] <- t1[1:1000]*(-100)
t1[1001:7499] <- t1[1001:7499]*50
t1[7500:10000] <- t1[7500:10000]*100
cdft1 <- ecdf(t1)
plot(cdft1)
今、この場合には、経験的で(意図で作成された)ジャンプがあります分布。ジャンプすると、それは以前よりも100%以上も上がったと言いましょう。これは、位置7,500の例で起こります。私の質問は、これらの「ジャンプ」インデックスを最も効果的に見つける方法は?