dkcens2_1val function

Density evaluation once

Computes the likelihood contribution for one data point in the case of censoring.

dkcens2_1val(xleft, xright, c_code, distr = NULL, mu = NULL, sigma = NULL)

Details

For internal use

Examples

## 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")
  }
}