Naive Bayes 1

Sign in to test your solution.
nb.fit <- naiveBayes(Direction ~ Lag1 + Lag2, data = Smarket, subset = train) nb.preds <- ...