I study a rare disease (recurrent respiratory papillomatosis (RRP)) and have accumulated data on hundreds of patients and the age at which they were diagnosed. Only a few (17) ever went on to develop the dreaded complication of pulmonary involvement. They were all patients who were diagnosed before the age of 5. But then again about half of all patients in our sample are diagnosed before the age of 5. I am able to easily use R to figure out, in our specific cohort, the oldest diagnostic age of any patient who subsequently developed pulmonary involvement.
data.table [SitePulmonay==TRUE, max(diagnostic.age)]
I am also able to use the ecdf() function and can use ggplot to visualize
Empirical cumulative distribution (ECDF).
How do I calculate the 95% confidence interval, or any confidence interval. I want to determine an age of diagnosis above which there is only a 2.5% probability of ever going on to develop pulmonary involvement. Ideally I would like to implement in R. Since I only have 17 patients with pulmonary RRP, I cannot simply believe that our maximum diagnostic age is THE maximum diagnostic age. I am not looking for the mean diagnostic age and the 95% interval on that (that would be the sem