KNN算法的R实现

339075703@qq.com
楼主好人

郭田奇 发表于 2016-4-11 16:15
已发，请查收

楼主能发我一份么，刚换了个数据挖掘的工作，在看机器学习的算法以及在R语言中的实现，新手，能发我个么，万分感谢了，我的邮箱是cumtning@126.com

郭田奇 发表于 2015-5-10 13:19

管理员呢？？？把这不地道的货给封了

zhou1_20 发表于 2016-5-16 14:53
管理员呢？？？把这不地道的货给封了

哈哈，我前面说的很明白了，这个分享之是为了找我老试要点论坛币，如果大家需要的话，我就私邮发，不要误会哦！如果你需要的话，我也可以发你一份

fmsr 发表于 2016-5-4 17:25
楼主论坛币收到了就删帖吧，免得被黑

多谢提醒！

你好, 能否也给我发一份呢？感谢您

sunkao1035@gmail.com

我之前售价那么高的，只是为了找我老师给我些论坛币，现在免费我重新上传一个我自己实践过的R算法的代码，不对的地方轻轻的喷，各位下载这个就好！谢谢大家！

1. data<-read.csv("data.csv")
   
2. str(data)
   
3. summary(data)
   
4. table(data$type)
   
5. 
   
6. #随机抽样
   
7. n<-nrow(data)
   
8. indices <- sort(sample(1:n, n * (2/3)))
   
9. #标准化数据
   
10. normalize <- function(x) {
    
11.   return((x - min(x)) / (max(x) - min(x)))
    
12. }
    
13. #构建训练集和测试集
    
14. train_data<-data[indices,-ncol(data)]
    
15. train_data<- as.data.frame(lapply(train_data, normalize))
    
16. train_data[1:10,]
    
17. train_data_label<-data[indices, ncol(data)]
    
18. 
    
19. test_data<-data[-indices,-ncol(data)]
    
20. test_data<- as.data.frame(lapply(test_data, normalize))
    
21. test_data[1:10,]
    
22. test_data_label<-data[-indices, ncol(data)]
    
23. 
    
24. #使用KNN算法
    
25. library(class)
    
26. pred.knn<-knn(train = train_data,test = test_data,cl=train_data_label,k=17)
    
27. accuracy.knn<-sum(pred.knn==test_data_label)/length(test_data_label)
    
28. accuracy.knn
    
29. 
    
30. #结果展现
    
31. require(gmodels)
    
32. CrossTable(x =test_data_label, y = pred.knn,
    
33.            prop.chisq=FALSE)
    
34. agreement_KNN<- pred.knn==test_data_label
    
35. table(agreement_KNN)

复制代码

小沸羊羊 发表于 2016-5-8 15:32
楼主能发我一份不？谢谢 408223841@qq.com

见后面我的回复，我已经公开贴在评论里了

txyw 发表于 2015-5-12 14:04
楼主，好东西便宜啊！要不人家买不起啊

免费的脚本已经贴在后面的评论区，请自行下载

sunkao 发表于 2016-5-20 12:48
你好, 能否也给我发一份呢？感谢您

sunkao1035@gmail.com

免费的脚本已经贴在评论区，请自行下载啊