# NOT RUN {
x <- cbind(
X=c( 0.1,1,2,5,10,20 ),
S=c( 0,5,6,6,6,6 ),
N=c( 6,6,6,6,6,6 )
)
obj <- analyzeSingleLab(x=x)
print(obj)
# or just
obj
obj <- analyzeSingleLab(x=x, qLOD=c(50, 70, 95))
obj
# }
Run the code above in your browser using DataLab