Displaying 1 result from an estimated 1 matches for "d1teg10".
2010 Aug 30
2
Regarding naive baysian classifier in R
...isplaying the attribute values.
my code is given below:
library(e1071)
train<-read.table("C:/Users/Aadhithya/Desktop/ThesisDatasetsComb/Part1/Dataset1/groups/train/D1TRg10.txt",header=T);
test<-read.table("C:/Users/Aadhithya/Desktop/ThesisDatasetsComb/Part1/Dataset1/groups/test/D1TEg10.txt",header=T);
length(test);
cl <- c(c(rep("ALL",10), rep("AML",10)));
cl <- factor(cl)
model <- naiveBayes(t(train),cl);
pred<-predict(model, t(test),decision.values=TRUE,probability=TRUE)
attr(pred,"probabilities");
table(pred,t(cl));
--
View this...