# NOT RUN {
## Loading the exemple data
data("metab")
## Computing BBI indices
BI_metab <- BBI(metab)
## And then computing nEQR
eqr <- nEQR(BI_metab$BBI)
## print nEQR values
eqr$nEQR
## print discrete status
eqr$nEQRclass
# }
Run the code above in your browser using DataLab