r - which.max(sapply, train_gibbs, logLik) エラー

Question

そのため、Grun と Hornik ( http://www.jstatsoft.org/v40/i13/ ) の 10 倍の交差検証方法に従って、10 倍のトレーニングとテスト セットから perplexity を計算しています。しかし、以下のコードの最後に記載されている test_gibbs を作成するとエラーが発生します。誰でもこの問題を解決する方法を提案できますか? 前もって感謝します。

R> dim(dtm)
[1]  546 1484
R> fold <- 1
R> range(col_sums(dtm))
[1]   1 192
R> set.seed(0908)
R> folding <-
+  sample(rep(seq_len(10),
+  ceiling(nrow(dtm)))[seq_len(nrow(dtm))])
R> testing <- which(folding == fold)
R> training <- which(folding != fold)
R> topics <- 10 * c(1:5, 10, 20)
R> train <- LDA(dtm[training,], k = k,
+  control = list(verbose = 100))
final e step document 491
R> test <- LDA(dtm[testing,], model = train,
+  control = list(estimate.beta = FALSE))
R> train_gibbs <- LDA(dtm[training,], k = k, method = "Gibbs",
+  control = list(burnin = 1000, thin = 100,
+  iter = 1000, best = FALSE))
R> # this is where the error occurs################
R> test_gibbs <- LDA(dtm[testing,],
+  model = train_gibbs[[which.max(sapply, train_gibbs, logLik)]],
+  control = list(estimate.beta = FALSE, burnin = 1000,
+  thin = 100, iter = 1000, best = FALSE))

which.max(sapply, train_gibbs, logLik) のエラー: 未使用の引数 (train_gibbs, logLik)