#' Function to create train Topic Model
#'
#' @param x tmCorpus object
#' @param ... settings for mallet.doc.topics and mallet.topic.words
#'
#' @return returns object of a class tmTopicModel
#'
#' @export
train <- function(x, ...)
UseMethod("train")