im not seeing actual.values as a slot on performance
library("ROCR")
nums <- 1:100
rands <-runif(100,0,1)
part_pred_labs <- ifelse(nums<50,
ifelse(rands>.7,TRUE,FALSE),
ifelse(rands>.3,TRUE,FALSE))
rand_pred_labs <- rands >.5
performance(prediction(nums,part_pred_labs),"auc")@y.values[[1]]
performance(prediction(nums,rand_pred_labs),"auc")@y.values[[1]]