R/RcppExports.R

Defines functions warplda_reset_local_diff warplda_set_c_global warplda_get_c_global warplda_get_local_diff warplda_get_topic_word_count warplda_get_doc_topic_count warplda_pseudo_loglikelihood run_one_iter_word run_one_iter_doc warplda_set_topic_word_count warplda_init_dtm warplda_create cpp_fixed_char_tokenizer is_invalid_ptr malloc_trim euclidean_dist rowMaxs rowMins colMaxs colMins collapse_collocations_cpp create_xptr_unordered_set cpp_get_document_count cpp_get_vocab_statistics cpp_vocabulary_insert_document_batch_xptr cpp_vocabulary_insert_document_batch cpp_vocab_create cpp_vocabulary_corpus_get_dtm cpp_vocabulary_corpus_get_tcm cpp_vocabulary_corpus_insert_document_batch cpp_vocabulary_corpus_create cpp_hash_corpus_get_dtm cpp_hash_corpus_get_tcm cpp_hash_corpus_insert_document_batch cpp_hash_corpus_create hasher

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

hasher <- function(x, hash_size) {
    .Call(`_text2vec_hasher`, x, hash_size)
}

cpp_hash_corpus_create <- function(size, n_min, n_max, use_signed_hash) {
    .Call(`_text2vec_cpp_hash_corpus_create`, size, n_min, n_max, use_signed_hash)
}

cpp_hash_corpus_insert_document_batch <- function(ptr, docs_batch, grow_dtm, context, window_size, weights) {
    invisible(.Call(`_text2vec_cpp_hash_corpus_insert_document_batch`, ptr, docs_batch, grow_dtm, context, window_size, weights))
}

cpp_hash_corpus_get_tcm <- function(ptr) {
    .Call(`_text2vec_cpp_hash_corpus_get_tcm`, ptr)
}

cpp_hash_corpus_get_dtm <- function(ptr) {
    .Call(`_text2vec_cpp_hash_corpus_get_dtm`, ptr)
}

cpp_vocabulary_corpus_create <- function(vocab_R, n_min, n_max, stopwords_R, delim) {
    .Call(`_text2vec_cpp_vocabulary_corpus_create`, vocab_R, n_min, n_max, stopwords_R, delim)
}

cpp_vocabulary_corpus_insert_document_batch <- function(ptr, docs_batch, grow_dtm, context, window_size, weights, flag_binary_cooccurence = 0L) {
    invisible(.Call(`_text2vec_cpp_vocabulary_corpus_insert_document_batch`, ptr, docs_batch, grow_dtm, context, window_size, weights, flag_binary_cooccurence))
}

cpp_vocabulary_corpus_get_tcm <- function(ptr) {
    .Call(`_text2vec_cpp_vocabulary_corpus_get_tcm`, ptr)
}

cpp_vocabulary_corpus_get_dtm <- function(ptr) {
    .Call(`_text2vec_cpp_vocabulary_corpus_get_dtm`, ptr)
}

cpp_vocab_create <- function(ngram_min, ngram_max, stopwords_R, delim, window_size) {
    .Call(`_text2vec_cpp_vocab_create`, ngram_min, ngram_max, stopwords_R, delim, window_size)
}

cpp_vocabulary_insert_document_batch <- function(ptr, document_batch) {
    invisible(.Call(`_text2vec_cpp_vocabulary_insert_document_batch`, ptr, document_batch))
}

cpp_vocabulary_insert_document_batch_xptr <- function(ptr, document_batch_ptr) {
    invisible(.Call(`_text2vec_cpp_vocabulary_insert_document_batch_xptr`, ptr, document_batch_ptr))
}

cpp_get_vocab_statistics <- function(ptr) {
    .Call(`_text2vec_cpp_get_vocab_statistics`, ptr)
}

cpp_get_document_count <- function(ptr) {
    .Call(`_text2vec_cpp_get_document_count`, ptr)
}

create_xptr_unordered_set <- function(x) {
    .Call(`_text2vec_create_xptr_unordered_set`, x)
}

collapse_collocations_cpp <- function(docs, xptr_unordered_set_phrases, xptr_unordered_set_stopwords, r_sep) {
    .Call(`_text2vec_collapse_collocations_cpp`, docs, xptr_unordered_set_phrases, xptr_unordered_set_stopwords, r_sep)
}

colMins <- function(x) {
    .Call(`_text2vec_colMins`, x)
}

colMaxs <- function(x) {
    .Call(`_text2vec_colMaxs`, x)
}

rowMins <- function(x) {
    .Call(`_text2vec_rowMins`, x)
}

rowMaxs <- function(x) {
    .Call(`_text2vec_rowMaxs`, x)
}

euclidean_dist <- function(x, y) {
    .Call(`_text2vec_euclidean_dist`, x, y)
}

malloc_trim <- function() {
    .Call(`_text2vec_malloc_trim`)
}

is_invalid_ptr <- function(sexp_ptr) {
    .Call(`_text2vec_is_invalid_ptr`, sexp_ptr)
}

cpp_fixed_char_tokenizer <- function(x, delim) {
    .Call(`_text2vec_cpp_fixed_char_tokenizer`, x, delim)
}

warplda_create <- function(n_topics, doc_topic_prior, topic_word_prior) {
    .Call(`_text2vec_warplda_create`, n_topics, doc_topic_prior, topic_word_prior)
}

warplda_init_dtm <- function(ptr, m, z_old, z_new, seeds) {
    invisible(.Call(`_text2vec_warplda_init_dtm`, ptr, m, z_old, z_new, seeds))
}

warplda_set_topic_word_count <- function(ptr, topic_word_count) {
    invisible(.Call(`_text2vec_warplda_set_topic_word_count`, ptr, topic_word_count))
}

run_one_iter_doc <- function(ptr, update_topics = TRUE) {
    invisible(.Call(`_text2vec_run_one_iter_doc`, ptr, update_topics))
}

run_one_iter_word <- function(ptr, update_topics = TRUE) {
    invisible(.Call(`_text2vec_run_one_iter_word`, ptr, update_topics))
}

warplda_pseudo_loglikelihood <- function(ptr) {
    .Call(`_text2vec_warplda_pseudo_loglikelihood`, ptr)
}

warplda_get_doc_topic_count <- function(ptr) {
    .Call(`_text2vec_warplda_get_doc_topic_count`, ptr)
}

warplda_get_topic_word_count <- function(ptr) {
    .Call(`_text2vec_warplda_get_topic_word_count`, ptr)
}

warplda_get_local_diff <- function(ptr) {
    .Call(`_text2vec_warplda_get_local_diff`, ptr)
}

warplda_get_c_global <- function(ptr) {
    .Call(`_text2vec_warplda_get_c_global`, ptr)
}

warplda_set_c_global <- function(ptr, c_all) {
    invisible(.Call(`_text2vec_warplda_set_c_global`, ptr, c_all))
}

warplda_reset_local_diff <- function(ptr) {
    invisible(.Call(`_text2vec_warplda_reset_local_diff`, ptr))
}

Try the text2vec package in your browser

Any scripts or data that you put into this service are public.

text2vec documentation built on Nov. 9, 2023, 9:07 a.m.