NGramTokenize（lapply issue）の使用中にエラーが発生しました

Question

rWekaパッケージのNGramTokenizerを使用しています。私はすべてが正しくインストールされていると信じています。私は、次のコードを実行している：私は受信

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

エラーは次のとおりです。

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

これを解決する方法上の任意のアイデア？もう一度おねがいします。

ベスト

ヴィシャル

Answer 1

はあなただけ参照することによって、それを渡すのではなく、TermDocumentMatrix機能でBigram_Tokenizerを（）を実行しているようです。あなたは実行するだけでそれを渡す必要があります：

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