Found error in roc.R

R/roc.R

@@ -258,7 +258,7 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
    cvalues<-base::c()
    colors_used<-base::c()
 
-   i=0
+   i=1
    g<-ggplot2::ggplot()
    for (var in vars) {
       if (var %in% base::names(df)) {