# NOT RUN {
L = seq(60,160,1)
p=c(a=0.075,b=0.075,c=1.0,alpha=100)
asym <- srug(p=p,sizeage=L)
L25 <- linter(bracket(0.25,asym,L))
L50 <- linter(bracket(0.5,asym,L))
L75 <- linter(bracket(0.75,asym,L))
ans <- c(L25,L50,L75,L50-L25,L75-L50)
{cat(" L25 L50 L75 L50-L25 L75-L50 \n")
cat(round(ans,4),"\n")}
# }
Run the code above in your browser using DataLab