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
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
0.5
0.5
0.5
1
0.833333333333333
0.8
1
1
0.875
0.9375
1
0.628571428571429
0.952380952380952
0.530612244897959
0.8
0.634920634920635
0.742857142857143
0.5
0.818181818181818
0.777777777777778
0.685714285714286
0.726190476190476
0.774358974358974
0.611111111111111
0.522222222222222
0.640625
0.517751479289941
0.727891156462585
0.552
0.638333333333333
0.624285714285714
0.492610837438424
0.706878306878307
0.527027027027027
0.521021021021021
0.530065359477124
0.527716186252772
0.532172230285438
0.587027914614122
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
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
0.5
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
0.5
0.5
1
0.5
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
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
0.5
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
0.5
NaN
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