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+"]
temp.res <- Youden3Grp.Variance.Normal(x=x, y=y, z=z, alpha=0.05)
###variance of the extended Youden index and optimal cut-points
temp.res[c("var.youden","var.t.minus","var.t.plus")]
Run the code above in your browser using DataLab