不懂，怎么回事？请教高手啊

应该比较简单，把sort里的参数index.return设为TRUE即可，该值默认为FALSE。

bh.adjust=function(x)
{i=1:length(x)
y=sort(x)
ifelse(y(i)<=0.05*i/length(x),"F","T")}

bh.adjust(c(.39,.024,.35,.009,.10))
得到的结果是是以y(i)的顺序，如何将结果改成以原来sequence的顺序？
谢谢！！！

bh.adjust <- function(x)
{
  i <- 1:length(x)
  y <- sort(x, index.return=TRUE)
  z <- ifelse(y$x[i] <= 0.05*i/length(x),"F","T")
  z[y$ix]  # 还原成原来的顺序
}

y <- bh.adjust(c(.39,.024,.35,.009,.10))