# NOT RUN {
frtab <- get_fracdist_tab(iq = 3, iscon = 0)
bval <- unique(frtab[, 'bbb'])
probs <- unique(frtab[, 'probs'])
bedf <- rep(NA, length(probs))
for (i in 1:length(probs)) {
estcrit <- frtab[frtab[, 'probs'] == probs[i], 'xndf']
bedf[i] <- blocal(nb = 31, bb = 0.75, estcrit, bval)
}
fpcrit(npts = 9, iq = 3, clevel = 0.05, probs, bedf, ginv = qchisq(probs, df = 3^2))
# }
Run the code above in your browser using DataLab