R/KS_Function.R

In Ehsan-F/R-Mixtape: Mixtape: Enhancing the model making process

KS <- function (pred, obs) {
  require("ROCR")
  p <- prediction(as.numeric(pred), obs)
  perf <- ROCR::performance(p, "tpr", "fpr")
  ks <- max(attr(perf, "y.values")[[1]] - (attr(perf, "x.values")[[1]]))
  return(ks)
}