# NOT RUN {
## The function is currently defined as
function(xleft, xright, c_code, distr = NULL, mu = NULL, sigma = NULL) {
if (c_code == 1) {
dk(x = xleft, distr, mu, sigma)
} else if (c_code == 2) {
pk(xright, distr, mu, sigma)
} else if (c_code == 0) {
1 - pk(xleft, distr, mu, sigma)
} else if (c_code == 3) {
pk(xright, distr, mu, sigma) - pk(xleft, distr, mu, sigma)
} else {
stop("Wrong integer code for censored data")
}
}
# }
Run the code above in your browser using DataLab