nkB

  library(e1071)
  library(class)
  library(kernlab)
  data(spam)
  rows <- sample.int(nrow(spam), size = round(nrow(spam)/3), replace = F)
  spam.train <- spam[-rows,]
  spam.test <- spam[rows,]
  model.bayes <- naiveBayes(x = spam.train[,-58], y = spam.train[,58])
  bayes.result <- predict(model.bayes, spam.test[,-58])
  error.bayes <- 1 - sum(bayes.result == spam.test[,58])/length(spam.test[,58])
  sum(bayes.result != spam.test[,58])/length(bayes.result)
  as.numeric(bayes.result) - 1

kurwix nie wiem co dalej