data(AL)
group <- AL$group
table(group)
##take the negated FACTOR1 marker measurements
factor1 <- -AL$FACTOR1
x <- factor1[group=="D-"]
y <- factor1[group=="D0"]
z <- factor1[group=="D+"]
## VUS under normality assumption
normal.res <- VUS(x,y,z,method="Normal",p=0,q=0,alpha=0.05)
###S3 method
print(normal.res)
###S3 method
plot(normal.res)
##Youden index using normal method
youden.res <- Youden3Grp(x=x,y=y,z=z,method="Normal")
print(youden.res)
plot(youden.res)
Run the code above in your browser using DataLab