trimSurv: trimSurv
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

1	trimSurv(survData, percentile)

`survData`
`percentile`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (survData, percentile) 
{
    qdata.mix <- quantile(survData[survData$infstatus == 0, ]$time, 
        c(1 - percentile, percentile))
    qdata.inf <- quantile(survData[survData$infstatus == 1, ]$time, 
        c(1 - percentile, percentile))
    survData <- survData[(survData$time <= qdata.mix[2] & survData$infstatus == 
        0) | (survData$infstatus == 1), ]
    survData
  }