Update functions2.R

output TP, FP, TN, FN