R/get.sinterval.censor.names.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

get.sinterval.censor.names <-
function (data.d) 
{
    the.right.censor.names <- attr(data.d, "sinterval.censor.names")
    if (is.null(the.right.censor.names)) {
        the.right.censor.names <- data.d$right.censor.names
        if (is.null(the.right.censor.names)) {
            return(casefold(GetSMRDDefault("SMRD.DefaultSintervalCensorNames")))
        }
    }
    else {
        return(casefold(the.right.censor.names))
    }
}