# NOT RUN {
## The function is currently defined as
function(xleft, xright) {
if (any(xright < xleft, na.rm = T)) {
stop("in censored data, left bound not always smaller than right bound")
}
if (any(mapply(FUN = function(xileft, xiright) {
is.na(xileft) & is.na(xiright)
}, xleft, xright))) {
stop("in censored data, there is an NA NA")
}
}
# }
Run the code above in your browser using DataLab