次のコードを使用して、トピックの数が 26 から 35 の範囲のトピック モデルのリストを 1 ずつ作成しました。
best.model <- lapply(seq(26,35, by=1), function(d){LDA(dtm2, d, method = "Gibbs", control = list(burnin = burnin, iter = iter, keep = keep))})
best.model を呼び出すと、次のようになります。
> best.model
[[1]]
A LDA_Gibbs topic model with 26 topics.
[[2]]
A LDA_Gibbs topic model with 27 topics.
[[3]]
A LDA_Gibbs topic model with 28 topics.
[[4]]
A LDA_Gibbs topic model with 29 topics.
[[5]]
A LDA_Gibbs topic model with 30 topics.
[[6]]
A LDA_Gibbs topic model with 31 topics.
[[7]]
A LDA_Gibbs topic model with 32 topics.
[[8]]
A LDA_Gibbs topic model with 33 topics.
[[9]]
A LDA_Gibbs topic model with 34 topics.
[[10]]
A LDA_Gibbs topic model with 35 topics.
次に、各トピック モデルを個別のオブジェクトに抽出しようとします。
Gibbs26 <- best.model[1]
Gibbs27 <- best.model[2]
Gibbs28 <- best.model[3]
Gibbs29 <- best.model[4]
Gibbs30 <- best.model[5]
Gibbs31 <- best.model[6]
Gibbs32 <- best.model[7]
Gibbs33 <- best.model[8]
Gibbs34 <- best.model[9]
Gibbs35 <- best.model[10]
ただし、各モデルのクラスを呼び出すと、次のようになります。
class(Gibbs26)
[1] "list"
最初の best.model リストから各要素を抽出し、各要素を簡単に操作できるオブジェクトにするにはどうすればよいですか?