data(learning.test)
bn = naive.bayes("A", LETTERS[2:6])
pred = predict(bn, learning.test)
table(pred, learning.test[, "A"])
#
# pred a b c
# a 1286 310 178
# b 192 977 203
# c 190 383 1281
#
fitted = bn.fit(bn, learning.test, method = "bayes")
pred = predict(fitted, learning.test)
table(pred, learning.test[, "A"])
#
# pred a b c
# a 1286 310 178
# b 192 977 203
# c 190 383 1281
#
Run the code above in your browser using DataLab