set.seed(6)
testData <- data.frame(x = c(rnorm(200), rnorm(200) + 1),
                       group = factor(rep(letters[1:2], each = 200)))
   
densityplot(~testData$x, groups = testData$group, auto.key = TRUE)   
   
roc(testData$x, testData$group)Run the code above in your browser using DataLab