tests/data/save.R
In koheiw/LSS: Semi-Supervised Algorithm for Document Scaling
require(quanteda)
require(wordvector)
toks_test <- readRDS("../data/tokens_test.RDS")
feat_test <- head(char_context(toks_test, "america*", min_count = 1, p = 0.05), 100)
dfmt_test <- dfm(toks_test)
seed_test <- as.seedwords(data_dictionary_sentiment)
lss_test <- textmodel_lss(dfmt_test, seed_test, terms = feat_test, k = 300)
saveRDS(lss_test, "../data/lss_test.RDS")
w2v_test <- word2vec(head(toks, 10), min_count = 1)
saveRDS(w2v_test, "tests/data/word2vec_test.RDS")
koheiw/LSS documentation built on Jan. 13, 2025, 1:40 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
require(quanteda)
require(wordvector)
toks_test <- readRDS("../data/tokens_test.RDS")
feat_test <- head(char_context(toks_test, "america*", min_count = 1, p = 0.05), 100)
dfmt_test <- dfm(toks_test)
seed_test <- as.seedwords(data_dictionary_sentiment)
lss_test <- textmodel_lss(dfmt_test, seed_test, terms = feat_test, k = 300)
saveRDS(lss_test, "../data/lss_test.RDS")
w2v_test <- word2vec(head(toks, 10), min_count = 1)
saveRDS(w2v_test, "tests/data/word2vec_test.RDS")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.