myrddian

model.analysis <-function(test_res, predict_rsp) {


  col_names <- c("TruePositive","FalsePositive",
                 "FalseNegative","Accuracy","Precision","Recall","F1")
  ret_val <- data.frame(matrix(ncol = length(col_names), nrow = 0))
  colnames(ret_val) <- col_names
  ret_val[nrow(ret_val) + 1,] = c(tp,fp,fn,accuracy,precision,recall,f1)
  return(ret_val)
}