#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.