Nothing
#' Density evaluation once
#'
#' Computes the likelihood contribution for one data point in the case of
#' censoring.
#'
#' For internal use
#'
#' @keywords internal
#' @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")
#' }
#' }
dkcens2_1val <-
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")
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.