# NOT RUN {
library(nbc4va)
data(nbc4vaData)
# Run naive bayes classifier on random train and test data
train <- nbc4vaData[1:50, ]
test <- nbc4vaData[51:100, ]
results <- nbc(train, test)
# Obtain the predicted CSMFs
predCSMF <- csmf.nbc(results)
# }
Run the code above in your browser using DataLab