F1 Score values different from caret and formula application

Question

I have two ways to predict F1-Score on my prediction model. First, here is my prediction model:

modele <- qda(data$cartevpr ~ ., data = data_feature) 
predicti