Displaying 1 result from an estimated 1 matches for "cmest".
Did you mean:
cest
2011 Apr 05
0
Changing parameter in local fdr R code
...;, "sigleft", "p0", "sigright")
}
else {
fp0 = matrix(NA, 6, 3)
colnames(fp0) = c("delta", "sigma", "p0")
}
rownames(fp0) = c("thest", "theSD", "mlest", "mleSD", "cmest",
"cmeSD")
fp0["thest", 1:2] = c(0, 1)
fp0["theSD", 1:2] = 0
imax <- seq(l)[l == max(l)][1]
xmax <- x[imax]
if (length(pct0) == 1) {
pctup <- 1 - pct0
pctlo <- pct0
}
else {
pctlo <- pct0[1...