library(DTComPair)
data(Paired1)
# test y1 conditioned on null model: DLR+(Y1=1) and DLR-(Y1=0)
DLR("~ 1","~ y1","d",Paired1)
# test y1 conditioned on test y2 with interaction, DLR+(Y1=1|Y2=1) and DLR-(Y1=0|Y2=1)
DLR("~ y2","~ y2 * y1","d",Paired1)
Run the code above in your browser using DataLab