extra_functions/R2.0/fit_topic_model.R

In TommyJones/textmineR: Functions for Text Mining and Topic Modeling

fit_topic_model <- function(x, k = NULL, type = c("lda", "lsa", "stm", "pca", "ca", "glove",
                                        "ctm", "cluster"), 
                            control = list(...), return_all = TRUE){
  
  # Latent Dirichlet Allocation
  # (em vs gibbs) 
  if(type == "lda"){
    
  }
  
  # Latent Semantic Analysis got em!
  if(type == "lsa"){
    
  }
  # Structural Topic Model got em!
  if(type == "stm"){
    
  }
  # Principle Component Analsis
  if(type == "pca"){
    
  }
  # Correspondence Analysis
  if(type == "ca"){
    
  }
  # GloVe
  if(type == "glove"){
    
  }
  # Correlated Topic Model got em!
  if(type == "ctm"){
    
  }
  # Cluster Topic Model
  if(type == "cluster"){
    
  }
  
}