library(pROC)
# Generamos algunos datos de ejemplo
set.seed(123)
actual <- sample(c(0, 1), 100, replace = TRUE)
predicted1 <- runif(100)
predicted2 <- runif(100)

# Calcuamos las curvas ROC para cada conjunto de predicciones
#roc1 <- pROC::roc(actual, predicted1)
roc1 <- roc(actual, predicted1)# notamos que AMBAS actual y predicted1 son vectores de LA MISMA LONGITUD
#roc2 <- pROC::roc(actual, predicted2)
roc2 <- roc(actual, predicted2)

# Dibujamos la primera curva ROC 
plot(roc1, col = "blue", main = "Curvas ROC")
# Add the second ROC curve to the plot
lines(roc2, col = "red")

# Add a legend to the plot
legend("bottomright", legend = c("Modelo 1", "Modelo 2"), col = c("blue", "red"), lty = 1)