**实验目的:了解Bayes判别的原理,明白R语言实现Bayes判别的函数
实验要求:5.5
实验素材:在我的资源中ex.5.5
实验代码:**
> d5.5<-read.table("clipboard",header=T)
> d5.5
序号 x1 x2 x3 x4 x5 x6 x7 x8 G
1 1 1000 3000 0 0.1 0.3 0.1 0.3 4 1
2 2 3500 2500 0 0.5 0.5 0.5 2.0 1 1
3 3 1200 1000 0 0.5 0.5 1.0 0.5 3 1
4 4 800 800 0 0.1 1.0 5.0 1.0 3 1
5 5 3000 2800 0 1.0 2.0 3.0 4.0 3 1
6 6 4500 3500 0 8.0 2.0 10.0 1.0 5 2
7 7 3000 2600 1 6.0 1.0 3.0 4.0 2 2
8 8 3000 1500 0 2.0 8.0 6.0 2.0 5 3
9 9 850 425 1 3.0 3.0 25.0 25.0 1 3
10 10 2200 1200 1 6.0 3.0 1.0 4.0 1 3
11 11 4000 1000 1 3.0 5.0 3.0 2.0 1 4
12 12 7000 3700 1 10.0 4.0 10.0 1.0 4 4
13 13 4500 1500