# NOT RUN {
library(torch)
library(topicmodels.etm)
library(uwot)
path <- system.file(package = "topicmodels.etm", "example", "example_etm.ckpt")
model <- torch_load(path)
overview <- summary(model,
metric = "cosine", n_neighbors = 15,
fast_sgd = FALSE, n_threads = 1, verbose = TRUE)
overview$center
overview$embed_2d
# }
Run the code above in your browser using DataLab