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

Popular posts from this blog

RDBMS

.Net

1-5