r - which.max(sapply, train_gibbs, logLik) error -

so, following grun , hornik (http://www.jstatsoft.org/v40/i13/) method of 10 fold cross validation calculating perplexity 10-fold training , test set. have error when create test_gibbs stated end of code below. can suggest how fix problem? in advance.

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> # 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)) 

error in which.max(sapply, train_gibbs, loglik) : unused arguments (train_gibbs, loglik)