Perform topic modeling on preprocessed reviews

This function performs LDA topic modeling on the preprocessed reviews.

Usage

fit_lda(dtm, k, method = "Gibbs")

Arguments

dtm: A document-term matrix
k: The number of topics to extract
method: The method to use for fitting the model (default: Gibbs)

Value

An LDA model

Examples

# \donttest{
# Create a temporary file with sample book IDs
temp_file <- tempfile(fileext = ".txt")
writeLines(c("1420", "2767052", "10210"), temp_file)

# Scrape reviews
reviews <- scrape_reviews(temp_file, num_reviews = 5, use_parallel = FALSE)
#> Total book IDs to process: 3
#> 2024-09-03 16:15:38.029445 scrape_goodreads_reviews: Completed! All book reviews extracted
#> Scraping run time = 10.6053116321564
#> Total books processed: 3

# Preprocess the reviews
preprocessed <- preprocess_reviews(reviews, english_only = TRUE)

# Fit LDA model
lda_model <- fit_lda(preprocessed$dtm, k = 2)

# Print model summary
print(lda_model)
#> A LDA_Gibbs topic model with 2 topics.

# Clean up: remove the temporary file
file.remove(temp_file)
#> [1] TRUE
# }