R语言 - 朴素贝叶斯

#加载e1071包

> library( e1071)

#将sample.csv里的数据定义为变量sample，导入标签行，分隔符为，

> sample <- read.table( "sample.csv", header = TRUE, sep = ",")

#将训练数据(1:14)和测试数据(15)分为两个数据帧

> traindata <- as.data.frame( sample[ 1 : 14,])

> testdata <- as.dataframe( sample[ 15,])

#表示训练数据

> traindata

Age Income JobSatisfaction Desire Enrolls

1 <= 30 High No Fair No

2 <= 30 High No Excellent No

3 31 to 40 High No Fair Yes

4 > 40 Medium No Fair Yes

5 > 40 Low Yes Fair Yes

6 > 40 Low Yes Excellent No

<