Displaying 1 result from an estimated 1 matches for "ilfdr".
Did you mean:
ibfdr
2011 Apr 05
0
Changing parameter in local fdr R code
...e * fdre)/sum(f1e)
}
EE = EE/EE[1]
names(EE) = mul
}
Cov2.out = loccov2(X, X0, i0, f, fp0["cmest", ], N)
Cov0.out = loccov2(X, matrix(1, length(x), 1), i0, f, fp0["thest",
], N)
if (sw == 3) {
if (nulltype == 0)
Ilfdr = Cov0.out$Ilfdr
else if (nulltype == 1)
Ilfdr = ml.out$Ilfdr
else if (nulltype == 2)
Ilfdr = Cov2.out$Ilfdr
else stop("With sw=3, nulltype must equal 0, 1, or 2.")
return(Ilfdr)
}
if (nulltype == 0)
Cov = Cov0.out$Co...