Error in if (l > 3 && all(df$auc[c(l - 3, l - 1)] > 0.99)) { : 
  missing value where TRUE/FALSE needed