data(AL)
group <- AL$group
##take the negated kfront marker measurements
kfront <- -AL$kfront
x <- kfront[group=="D-"]
y <- kfront[group=="D0"]
z <- kfront[group=="D+"]
class.prob <- Sp.Sm.Se(x=x,y=y,z=z,t.minus=-1.68,t.plus=0.91)
Run the code above in your browser using DataLab