R/strip.s.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

strip.s <-
function (str) 
{
    the.chars <- cparse(str)
    if (the.chars[length(the.chars)] == "s") 
        return(paste(the.chars[-length(the.chars)], collapse = ""))
    else return(str)
}