R语言 Fisher线性判别

本人正在学习R语言，想利用这个平台记录自己一些自己的学习情况，方便以后查找，也想分享出来提供一些资料给同样学习R语言的同学们。（如果内容有错误，欢迎大家批评指正）

Fisher线性判别主要用来根据样本进行整体特征的提取，大致分为以下四个步骤：
1.对数据进行抽样，将数据分为训练集和验证集
2.建立模型，得到对应的法则F
3.使用模型对验证集进行预测
4.计算模型准确率

下面通过使用RStudio中自带的数据集iris来进行判别花的品种与花瓣、萼片的长度、宽度的关系。

按照上述步骤：
1.抽样

ind<-sample(1:150,round(0.7*150),replace=FALSE)
#sample抽取150个样本 round将150个样本中的70%作为训练集 replace是否允许有重复元素

2.建立模型，得到法则

fisher.mode<-lda(as.formula("Species~Sepal.Length+Sepal.Width+Petal.Length+Petal.Width"),data=iris[ind,])
  #lda函数可以降低维度；公式formula是一个把响应变量（在~左侧）和解释变量（在~右侧）联系起来的对象。formula可以用在线性/一般线性模型
  #用随机选择出来的行作为训练集，得出品种关于花瓣和萼片的长度、宽度的函数关系

3.预测

pre<-predict(fisher.mode,iris