topicl/README.Rmd at master · paskn/topicl · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

# topicl

<!-- badges: start -->
<!-- badges: end -->

The goal of topicl is to provide tools for identifying stable
(reproducible) topics and for their analysis.

## Installation

You can install the development version of topicl from
[GitHub](https://github.com/) with:

``` r
# install.packages("pak")
pak::pak("paskn/topicl")
```

## Example

See
[vignette](https://www.pashakhin.org/topicl/articles/find_stable_topics-jaccard.html)
for details.

This is a basic example which shows you how to solve a common problem:

```{r example, message=FALSE, warning=FALSE}
library(topicl)
library(stm)
library(dplyr)

modA <- stm(poliblog5k.docs,
            poliblog5k.voc, K=25,
            prevalence=~rating,
            data=poliblog5k.meta,
            max.em.its=2,
            init.type="Random",
            seed = 9934,
            verbose = F)

modB <- stm(poliblog5k.docs,
            poliblog5k.voc, K=25,
            prevalence=~rating,
            data=poliblog5k.meta,
            max.em.its=2,
            init.type="Random",
            seed = 9576,
            verbose = F)

compare_solutions(list(modA, modB), depth=500) |>
  arrange(desc(jaccard)) |>
  head()

```