Bonjour,

J'ai un jeu de données discrétisé sur lequel je souhaite appliquer la fonction CBA() du package arulesCBA mais j'obtiens cette erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
> phishing$partie$train$CBA <- prediction(phishing$partie$train$discretize)
Error in data.frame(..., check.names = FALSE) : 
  arguments imply differing number of rows: 5528, 0

J'ai un autre jeu de données sur lequel j'ai appliqué la fonction CBA() et je n'ai eu aucun message d'erreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
prediction <- function(discretize_data)
{
  debut <- proc.time()
  data_CBA <- CBA(class ~ .,data=discretize_data, supp = 0.20, conf=0.8, lhs.support = TRUE)
  resultat <- predict(data_CBA, discretize_data)
  print((proc.time() - debut)[3])
  return(resultat)
 
}
 
 
wine$partie$train$CBA <- prediction(wine$partie$train$discretize)
# wine$partie$train$discretize: dimension 89, 14 ; classe: data.frame
 
phishing$partie$train$CBA <- prediction(phishing$partie$train$discretize)
# phishing$partie$train$discretize: dimension 5528, 31 ; classe: data.frame