Dm
install.packages("e1071")
library(e1071)
data("iris")
head(iris)
tail(iris)
print(iris)
summary(iris)
index=sample(2,nrow(iris), prob=c(0.9,0.1), replace=TRUE)
set.seed(1234)
train=iris[index==1,]
train
summary(train)
test-iris[index=2,]
test
summary(test)
model-naiveBayes (Species~., data=train)
pred-predict(model,test)
table(pred)
table(test$Species, pred)
Comments
Post a Comment