### input ###

library(naivebayes)
name <- c("candidate1", "candidate2", "candidate3")
rank <- c(5, 1, 3)
probability <- c(0.3, 0.7, 0.5)
naive_bayes(rank, name, prior=probability)

### output ###

===================== Naive Bayes =====================
Call:
naive_bayes.default(x = rank, y = name, prior = probability)

A priori probabilities:
candidate1 candidate2 candidate3
 0.2000000  0.4666667  0.3333333

Tables:

x      candidate1 candidate2 candidate3
  mean          5          1          3
  sd

naive_bayes(rank, name)

===================== Naive Bayes =====================
Call:
naive_bayes.default(x = rank, y = name)

A priori probabilities:

candidate1 candidate2 candidate3
 0.3333333  0.3333333  0.3333333

Tables:

x      candidate1 candidate2 candidate3
  mean          5          1          3
  sd