经验分布替代


13

赏金:

完整的奖金将颁发给别人谁提供任何发表的论文,它使用或提及的估计参考以下。F~

动机:

本部分对您可能并不重要,我怀疑它不会帮助您获得赏金,但是由于有人问了动机,这就是我正在努力的目标。

我正在研究统计图论问题。标准稠密图限制性目的是在这个意义上的对称函数,w ^ (Û ,v )= w ^ (v ,Ú )。取样在图上Ñ顶点可以被认为是取样Ñ在单位间隔均匀值(û 我为我= 1 ,... ,ÑW:[0,1]2→[0,1]W(u,v)=W(v,u)nnUii=1,…,n),那么边的概率为W (U i,U j)。我们得到的邻接矩阵被称为一个。(i,j)W(Ui,Uj)A

我们可以把作为密度˚F = w ^ / ∬ W¯¯假设∬ w ^ > 0。如果我们基于A来估计f,而对f没有任何约束,那么我们将无法获得一致的估计。我发现一个有趣的结果,当f来自一组可能的函数时,不断估计f。从这个估计和Σ 一,我们可以估算w ^。Wf=W/∬W∬W>0fAfff∑AW

不幸的是,当我们从密度为的分布中采样时,我发现的方法显示出一致性。构造A的方式要求我对点网格进行采样(与从原始f进行绘制相反)。在这个stats.SE问题中,我要求的是一维(简单)问题,当我们只能在像这样的网格上对Bernoullis进行采样而不是直接从分布中进行采样时会发生什么。fAf

图形限制参考:

L. Lovasz和B. Szegedy。密集图序列的极限(arxiv)。

C. Borgs,J。Chayes,L。Lovasz,V。Sos和K. Vesztergombi。密集图的收敛序列i:子图频率,度量标准属性和测试。(arxiv)。

符号:

考虑一个具有连续分布CDF 和pdf ˚F这对间隔的正支持[ 0 ,1 ]。假设˚F没有pointmass,˚F无处不微的,而且也是SUP Ž ∈ [ 0 ,1 ] ˚F (ż )= c ^ < ∞是上确界˚F在区间[ 0 ,1 ]。让X 〜˚F意味着随机变量Ff[0,1]fFsupz∈[0,1]f(z)=c<∞f[0,1]X∼F是从分布 F采样的。 ü 我是独立同分布的上均匀随机变量 [ 0 ,1 ]。XFUi[0,1]

问题设置:

通常,我们可以让与分布的随机变量˚F和与通常的工作经验分布函数作为 ˚F Ñ(吨)= 1X1,…,XnF 其中我是指示符函数。请注意,此经验分布 ˚F Ñ(吨)本身是随机(其中吨被固定)。

F^n(t)=1n∑i=1nI{Xi≤t}
IF^n(t)t

不幸的是,我无法直接从提取样本。然而,我知道˚F只对正支撑[ 0 ,1 ],并且我可以生成随机变量ÿ 1,... ,ÿ Ñ其中ý 我是与成功的概率伯努利分布的随机变量 p 我 = ˚F ((i − 1 + U i)/ n )/ c 其中c和Ff[0,1]Y1,…,YnYi

pi=f((i−1+Ui)/n)/c
c的定义如上。因此, ÿ 我〜伯尔尼(p 我)。我可能估计一个明显的方法 ˚F从这些 ÿ 我值是通过取 〜˚F Ñ(吨)= 1UiYi∼Bern(pi)FYi 其中⌈&CenterDot;&⌉是上取整函数(即,刚轮到最接近的整数),并且如果重绘Σ Ñ 我= 1 Ÿ我=0(以避免除以零并使Universe崩溃)。需要注意的是〜˚F(吨)也是随机变量,因为ÿ我是随机变量。
F~n(t)=1∑i=1nYi∑i=1⌈tn⌉Yi
⌈⋅⌉∑i=1nYi=0F~(t)Yi

问题:

从(我认为应该是)最容易到最困难。

  1. 有谁知道这是否(或类似的东西),有一个名字?您可以提供参考,以查看其某些属性吗?F~n

  2. 由于,是〜˚F ñ(牛逼)的一致估计˚F (牛逼)(和你能证明这一点)?n→∞F~n(t)F(t)

  3. 什么是的极限分布作为ñ →交通∞?F~n(t)n→∞

  4. 理想情况下,我想将以下内容约束为的函数-例如,O P(log (n )/ √nOP(log⁡(n)/n)OP

supC⊂[0,1]∫C|F~n(t)−F(t)|dt

一些想法和注意事项:

  1. 这看起来很像带有基于网格的分层的拒绝接受采样。请注意,这并不是因为,如果我们拒绝该提议,我们不会再绘制另一个样本。

  2. F~n

    F∗~n(t)=cn∑i=1⌈tn⌉Yi
    P(F∗~(1)=1)<1
  3. F~n

R中的例子

F~n

# sample from a beta distribution with parameters a and b
a <- 4 # make this > 1 to get the mode right
b <- 1.1 # make this > 1 to get the mode right
qD <- function(x){qbeta(x, a, b)} # inverse
dD <- function(x){dbeta(x, a, b)} # density
pD <- function(x){pbeta(x, a, b)} # cdf
mD <- dbeta((a-1)/(a+b-2), a, b) # maximum value sup_z f(z)


# draw samples for the empirical distribution and \tilde{F}
draw <- function(n){ # n is the number of observations
  u <- sort(runif(n)) 
  x <- qD(u) # samples for empirical dist
  z <- 0 # keep track of how many y_i == 1
  # take bernoulli samples at the points s
  s <- seq(0,1-1/n,length=n) + runif(n,0,1/n) 
  p <- dD(s) # density at s
  while(z == 0){ # make sure we get at least one y_i == 1
    y <- rbinom(rep(1,n), 1, p/mD) # y_i that we sampled
    z <- sum(y)
  }
  result <- list(x=x, y=y, z=z)
  return(result)
}

sim <- function(simdat, n, w){
  # F hat -- empirical dist at w
  fh <- mean(simdat$x < w) 
  # F tilde
  ft <- sum(simdat$y[1:ceiling(n*w)])/simdat$z
  # Uncomment this if we want an unbiased estimate.
  # This can take on values > 1 which is undesirable for a cdf.
  ### ft <- sum(simdat$y[1:ceiling(n*w)]) * (mD / n)
  return(c(fh, ft))
}


set.seed(1) # for reproducibility

n <- 50 # number observations
w <- 0.5555 # some value to test this at (called t above)
reps <- 1000 # look at this many values of Fhat(w) and Ftilde(w)
# simulate this data
samps <- replicate(reps, sim(draw(n), n, w))

# compare the true value to the empirical means
pD(w) # the truth 
apply(samps, 1, mean) # sample mean of (Fhat(w), Ftilde(w))
apply(samps, 1, var)  # sample variance of (Fhat(w), Ftilde(w))
apply((samps - pD(w))^2, 1, mean) # variance around truth


# now lets look at what a single realization might look like
dat <- draw(n)
plot(NA, xlim=0:1, ylim=0:1, xlab="t", ylab="empirical cdf",
     main="comparing ECDF (red), Ftilde (blue), true CDF (black)")
s <- seq(0,1,length=1000)
lines(s, pD(s), lwd=3) # truth in black
abline(h=0:1)
lines(c(0,rep(dat$x,each=2),Inf),
     rep(seq(0,1,length=n+1),each=2),
     col="red")
lines(c(0,rep(which(dat$y==1)/n, each=2),1),
      rep(seq(0,1,length=dat$z+1),each=2),
      col="blue")

从以上数据输出

编辑:

编辑1-

我对此进行了编辑,以解决@whuber的评论。

编辑2-

我添加了R代码并对其进行了更多清理。为了便于阅读,我略微更改了表示法,但是本质上是相同的。我计划在允许的情况下尽快对此进行赏金,因此,如果您需要进一步的说明,请告诉我。

编辑3-

我想我说了@cardinal的话。我修正了总体变化中的错字。我要加赏金

编辑4-

为@cardinal添加了“动机”部分。


1
fFsupzf(z)sup

1
感谢@whuber的意见。请让我知道修订后的问题是否仍然令人困惑。
— user1448319 2013年

1
nn{i/n}fFF

2
piYi,ni=1,…,npif(U)/cU是一个统一的随机变量。真的吗?(对您的问题的更多了解可能会解决很多这样的问题。)干杯。
— 红衣主教

2
这个问题已经改善了很多,直到我意识到自己之前已经看过评论,我什至没有意识到。现在这是一个非常有趣且写得更好的问题。
— Glen_b-恢复莫妮卡

Answers:



0

这回答了上面的问题2和3。我仍然真的想要一个参考(来自问题1)。

∑Yi=0

g(A,B)=A/(A+B)

gA(A,B)=(A+B)−1+A(A+B)−2gB(A,B)=−A(A+B)−2gAA(A,B)=2B(A+B)−3gAB(A,B)=(A−B)(A+B)−3gBB(B,B)=2A(A+B)−3
pi=f((i−1+Ui)/n)/c
R=1n∑i=1⌈nt⌉Yi,μR=E(R)=∫0tp(u)du=c−1F(t)S=1n∑⌈nt⌉+1nYi,μS=E(S)=∫t1p(u)du=c−1(1−F(t))
μR+μS=c−1F(t)+c−1(1−F(t))=c−1g(μR,μS)=F(t)
 Var(R)=1n2∑i=1⌈nt⌉ Var(Yi)=1n∫0tf(u)/c(1−f(u)/c)du=1nc2∫0tf(u)(c−f(u))du Var(S)=1nc2∫t1f(u)(c−f(u))du
 Cov(R,S)=0Yi

现在,我们使用泰勒展开式

E(F~n(t))=E(1∑i=1nYi∑i=1⌈tn⌉Yi)=E(nRnR+nS)=E(RR+S)=E(g(R,S))=g(μR,μS)+12E((R−μR)2)gRR(μR,μS)+E((R−μR)(S−μS))gRS(μR,μS)+12E((S−μS)2)gSS(μR,μS)+…=F(t)+12E((R−μR)2)2μS(μR+μS)−3+E((R−μR)(S−μS))(μR−μS)(μR+μS)−3+12E((S−μS)2)2μR(μR+μS)−3+…=F(t)+(μR+μS)−3(E((R−μR)2)μS+E((R−μR)(S−μS))(μR−μS)+E((S−μS)2)μR)+…=F(t)+c3( Var(R)c(1−F(t))+ Cov(R,S)(cF(t)−c(1−F(t)))+ Var(S)cF(t))+…=F(t)+c4((1n∫0tf(u)(c−f(u))du)(1−F(t))+(1n∫t1f(u)(c−f(u))du)F(t))+…=F(t)+V~F(t)/n+…=F(t)+O(n−1)
V~F(t)=c2(∫0tf(u)(c−f(u))du)(1−F(t))+c2(∫t1f(u)(c−f(u))du)F(t)<c2(∫0tcf(u)du)(1−F(t))+c2(∫t1cf(u)du)F(t)<c32F(t)(1−F(t))
n(F~n(t)−F(t))→dN(0,VF(t))

如果您发现有问题,请发表评论。

编辑:

编辑1-

VF(t)

编辑2-

c−1c∑Yi=0


1
F~n(t)∑iYi=0F~n(t),因此如果您走这条路线,它将更加干净(并且更加正确)。
— 主教

2
supC⊂[0,1]∫C|F~−F|≤sup[0,1]|F~−F~⋆|+∫01|F~⋆−EF~⋆|+O(n−1).
{∑iYi>0}≤|1−cn−1∑iYi|Op(n−1/2)Op(n−1/2)
— 红衣主教

∑iYi=0Yi{∑iYi>0}n=22×2

supC∫C|F~−F|=∫01|F~−F|
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.