Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
0.5
1
1
0.75
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
NaN
0.5
0.666666666666667
1
1
0.5
0.933333333333333
1
0.75
0.571428571428571
1
0.775
0.725
0.592592592592593
0.84375
0.597222222222222
0.602272727272727
0.535353535353535
0.59504132231405
0.645833333333333
0.703030303030303
0.444444444444444
0.529411764705882
0.6
0.685064935064935
0.505434782608696
0.474074074074074
0.640316205533597
0.591228070175439
0.505797101449275
0.486453201970443
0.53781512605042
0.547491039426523
0.606766917293233
0.584313725490196
0.576576576576577
0.723577235772358
0.5275
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
NaN
1
0.333333333333333
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
0.5
0.5
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
NaN
0.5
0.666666666666667
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
0.5
1
0.5
0.5
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
0.5
0.5
0.5
1
1
1
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed
Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed