# NOT RUN {
frtab <- get_fracdist_tab(iq = 3, iscon = 0)
bval <- unique(frtab[, 'bbb'])
probs <- unique(frtab[, 'probs'])
estcrit <- frtab[frtab[, 'probs'] == probs[201], 'xndf']
bedf_i <- blocal(nb = 31, bb = 0.75, estcrit, bval)
# }
Run the code above in your browser using DataLab