VALUE must be a factor, is it ?
library(e1071)
library(caret)
(peduliaku <- data.frame(
x=1:100,
VALUE= factor(c(rep(0,60),rep(1,40))),
VALUEbad= c(rep(0,60),rep(1,40))
))
#MEMBAGI DATA MENJADI 2 BAGIAN
sampel=sample(1:nrow(peduliaku),0.6*nrow(peduliaku),replace=TRUE)
training=data.frame(peduliaku)[sampel,]
testing=data.frame(peduliaku)[-sampel,]
#bad ?
#MEMBUAT MODEL NAVIEBAYES
modelNB=naiveBayes(VALUEbad~x,data=training)
#MELAKUKUAN PREDIKSI
prediksi=predict(modelNB,testing)
hasil=confusionMatrix(table(prediksi,testing$VALUEbad))
hasil
# good !
#MEMBUAT MODEL NAVIEBAYES
modelNB=naiveBayes(VALUE~x,data=training)
#MELAKUKUAN PREDIKSI
prediksi=predict(modelNB,testing)
hasil=confusionMatrix(table(prediksi,testing$VALUE))
hasil