R/classifierUtilitiesGenerator.R

In roinaveiro/acAra: Adversarial Classification with ARA

#' Classifier utilities generator
#'
#' This function generates classifier utilities.
#' @param yc defender's decision about email label, 1 spam 0 no spam.
#' @param y label of the email, 1 spam and 0 no spam.
#' @keywords emails, utility, random utilities
#' @export
#' @examples
#' classifierUtilitiesGenerator()

classifierUtilitiesGenerator <- function(yc=1,y=1,ut = -10){
  # if y label is malicious and yc label is malicious
  if ((yc == 1) & (y == 1)){
    U = 1
  }
  # if y label is malicious and yc label innocent
  if ((yc == 1) & (y == 0)){
    U = -1
  }
  # if y label is innocent and yc label is malicious
  if ((yc == 0) & (y == 1)){
    U = ut
  }
  # if y label is innocent and yc label is innocent
  if ((yc == 0) & (y == 0)){
    U = 1
  }
  return (U)
}