Nothing
#' @export
#' @import Matrix
#' @rdname fastNaiveBayesF
fastNaiveBayes <- function(x, y, priors = NULL, laplace = 0, sparse = FALSE, check = TRUE, distribution = fnb.detect_distribution(x)){
UseMethod("fastNaiveBayes")
}
#' @import Matrix
#' @export
#' @rdname fastNaiveBayesF
fastNaiveBayes.default <- function(x, y, priors = NULL, laplace = 0, sparse = FALSE, check = TRUE, distribution = fnb.detect_distribution(x)){
return(fnb.train(x, y, priors, laplace, sparse, check, distribution))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.