Closed Abou29 closed 3 years ago
Ce dépôt sert à la communauté Mozilla francophone à la gestion de ses activités, nous n'y déposons aucun code, seul le système d'issues de GitHub est utilisé comme suivi de tickets, ainsi que le wiki.
Ce n'est pas l'endroit où poster ce genre de questions. Désolé.
Salut, J'ai besoin d'aide svp, je commence mon premier projet de machine learning avec r. J'ai un blocage avec mon problème suivant:
bank_data=read.csv("bank.csv", sep=";")
library("caret") dummy_variables = dummyVars(~., bank_data) dummy_variables_data=predict(dummy_variables, bank_data) dummy_variables_data=as.data.frame(dummy_variables_data) dummy_variables_data
fonction<-function(x){ if (x==1){ return('yes') }else{ return('no') } }
dummy_variables_data['Souscription']=apply(as.data.frame(dummy_variables_data$yyes), 1 ,fonction) dummy_variables_data[,c(52,53,55)]=NULL
Création des jeux de donnéees d'entrainement et de test
set.seed(3033) training_size=floor(0.7*nrow(dummy_variables_data)) indices=sample(1:nrow(dummy_variables_data), training_size) data_bank.train=dummy_variables_data[indices,] data_bank.test=dummy_variables_data[-indices,]
Normalisation de données
data_preprocess_value=preProcess(data_bank.train, method = c("center","scale")) data_bank.train.scaled=predict(data_preprocess_value, data_bank.train) data_bank.test.scaled=predict(data_preprocess_value, data_bank.test)
set.seed(3033) trainControl_data=trainControl(method="repeatedcv", number=10, repeats=3) naive_bayes_desequilibree=train(Souscription~., data=data_bank.train.scaled, method="nb", trControl=trainControl_data, preProcess=NULL)
Voici le résultat que j'obtiens: Something is wrong; all the Accuracy metric values are missing: Accuracy Kappa
Min. : NA Min. : NA
1st Qu.: NA 1st Qu.: NA
Median : NA Median : NA
Mean :NaN Mean :NaN
3rd Qu.: NA 3rd Qu.: NA
Max. : NA Max. : NA
NA's :2 NA's :2
Erreur : Stopping De plus : There were 50 or more warnings (use warnings() to see the first 50)