最近要开始做一个分类器，因此，参考了几篇文献，并在自己的数据上进行了测试，可用。
1. 数据
当然了，需要准备两个数据集合，一个数据集合作为训练集合（train_dat），另一个集合作为检验集合（test_dat），也可以准备多个验证集合。
2 分类器方法：
在我的数据集中 训练集合中，sample 是标签列， 且使用全部基因，因此，训练模型的时候，formula 基本都是sample~., ，废话不多说，开始上代码。

（1）决策树，使用的是rpart R包进行模型的构建

  fit<-rpart(sample~.,data=train_dat,method='class')
  predictRes<-predict(fit,test_dat,type="class")
  table(test_dat$sample, predictRes) ##可查看分类效果

（2）C4.5 决策树，是比较经典的方法

 fit<-ctree(as.factor(sample)~.,data=train_dat)
  predictRes<-predict(fit,newdata=test_dat)

（3）C5 tree

fit<-C5.0(as.factor(sample)~.,data=train_dat,trials=50)
  predictRes<-predict(fit,newdata=test_dat)

(4) 朴素贝叶斯

fit<-naiveBayes(sample~.,data=train_dat,)
 predictRes<- predict(fit, newdata = test_dat)

(5) kNN 聚类

  classifier_knn <- knn(train = train_dat[,-ncol(train_dat)],
                        test = test_dat,
                        cl = train_dat$sample,
                        k = n)

(6)随机森林

classifier_RF = randomForest(x = train_dat[,-ncol(train_dat)],y = as.factor(train_dat$sample),ntree = 500,type = "class")
  predictRes= predict(classifier_RF, newdata = test_dat,type = "class")

(7) 支持向量机 这个需要自己选择内核函数

 classifier = svm(formula =as.factor(sample) ~ .,data = train_dat,type = 'C-classification',kernel = 'polynomial')
  predictRes = predict(classifier, newdata = test_dat)

就先到这里了，后面遇到其他模型会继续补充记录。。。
未完待续。。。