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
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
0.5
0.5
1
1
0.666666666666667
0.6
0.75
0.6875
0.8
0.75
0.866666666666667
0.685714285714286
0.7
0.644444444444444
0.785714285714286
0.8
0.680555555555556
0.67948717948718
0.5625
0.636363636363636
0.576388888888889
0.569444444444444
0.479591836734694
0.642533936651584
0.659259259259259
0.390625
0.652631578947368
0.521739130434783
0.557312252964427
0.490808823529412
0.377272727272727
0.582010582010582
0.554621848739496
0.486607142857143
0.482575757575758
0.654685494223363
0.590301003344482
0.586174242424242
0.601395730706076
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.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
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
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
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
1
1
0.666666666666667
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
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
0.5
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
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