ギブスサンプリングのパラメータを設定する方法

Question

私は、前処理後に9582の文書と4144の用語で構成されたいくつかのツイッターアカウントから収集したツイートのデータセットでLDAトピックモデリングを実行しています。 LDA関数を実行するには、モデルを実行するときにGibbsサンプリングドローの数を制御するパラメータ値を定義する必要があります。

fitted_many <- lapply(sequ, function(k) LDA(dtmTopicModeling, k = k, 
method = "Gibbs",control = list(burnin = burnin, iter = iter, keep = keep))) 

は、どのように私は上記の機能のためにを保つ ITER、とをバーンインの値を定義していますか？

Answer 1

lapplyの署名はlapply(X, FUN, ...)です。 3つの点は、FUNのオプションの引数を参照しています。だから、関数の後にコンマで区切られた引数を与えることができるはずです。

Answer 2

ここでlapplyの匿名機能は必要ありません。これは、kの値をLDAに渡しているためです。オリオールが言及したよう

fitted_many <- lapply(sequ, 
         LDA, 
         x = dtmTopicModeling, 
         method = "Gibbs", 
         control = list(burnin = burnin_value, 
            iter = iter_value, 
            keep = keep_value)) 

、lapplyで...引数が参照される関数に渡されます。その代わり、あなたのような何かをしたいです。 LDAを直接lapplyで参照することにより、の2番目の引数がkの値であるため、xという名前にする必要があります。

あなたは各k値についてburnin、iter、およびkeepの異なる値が必要な場合一方、あなたは、複数の様々な引数を渡す必要があります。それを行うにはいくつかの方法がありますが、私はpurrr::pmapが最も直接的だと思います。