Topic Probabilities per post
Examples
ldas <- SegmentR:::test_data(explore = FALSE)$lda$lda
#> removing stopwords
#> Making DTMs
#> making tuning grid
#> setting up LDAs
probabilities <- purrr::map(
ldas,
probabilities_segmentr
)
probabilities[[1]]
#> # A tibble: 100 × 4
#> document topic_1 topic_2 topic_3
#> <dbl> <dbl> <dbl> <dbl>
#> 1 1 0.391 0.287 0.322
#> 2 2 0.430 0.301 0.269
#> 3 3 0.0167 0.0667 0.917
#> 4 4 0.431 0.137 0.431
#> 5 5 0.373 0.255 0.373
#> 6 6 0.452 0.238 0.310
#> 7 7 0.317 0.317 0.367
#> 8 8 0.275 0.362 0.362
#> 9 9 0.217 0.417 0.367
#> 10 10 0.319 0.319 0.362
#> # ℹ 90 more rows