Erreur lors de l'utilisation de NGramTokenize (problème de fin)

Question

J'utilise NGramTokenizer à partir du package rWeka. Je crois que j'ai tout installé correctement. J'exécutant le code suivant:

Bigram_Tokenizer <- function(x) NGramTokenizer(x, Weka_control(min = 2, max = 2)) 
tdm <- TermDocumentMatrix(corpus, control = list(tokenize= Bigram_Tokenizer())) 

erreur que je reçois est:

Error in lapply(x,f): argument "x" is missing with no default. 

Toutes les idées sur la façon de résoudre ce problème? Merci encore d'avance.

Meilleur

Vishal

Answer 1

Vous semblez être exécuter Bigram_Tokenizer() en fonction TermDocumentMatrix au lieu de simplement passer par référence. Vous devez juste le passer avec l'exécution:

Bigram_Tokenizer <- function(x) NGramTokenizer(x, Weka_control(min = 2, max = 2)) 
tdm <- TermDocumentMatrix(corpus, control = list(tokenize= Bigram_Tokenizer))