Confusion Matrix and probability threshold using confusioMatrix in R

Question

I am getting this error message when I try using confusionMatrix Error: data and reference should be factors with the same levels. This is my code