SVM with the linear kernel: 如何不用内置函数在matlab实现十折交叉验证(k-fold cross-validation)

这里一开始对数据进行了一个预处理,导入了之前预先写好对DataHandling.m的文件
使用自己写的getKFoldData来进行每一折数据的划分,然后就跟普通训练一样,k从1到10循环去训练、测试、计算准确率、对每一折的准确率求和再除以10来求的10-fold cross-validation的平均准确率。

import DataHandling.*

%% Part A
normalise = true;
[cFtrs, cLbls, rFtrs, rLbls] = DataHandling(normalise);

cTrFtrs = cFtrs(1:1500,:);
cTeFtrs = cFtrs(1501:end,:);
rTrFtrs = rFtrs(1:1000,:);
rTeFtrs = rFtrs(1001:end,:);

cTrLbls = cLbls(1:1500,:);
cTeLbls = cLbls(1501:end,:);
rTrLbls = rLbls(1:1000,:);
rTeLbls = rLbls(1001:end,:);

% Classification
cMdl = fitcsvm(cTrFtrs, cTrLbls, 'KernelFunction', 'linear', 'BoxConstraint', 1);
[preds, score] = predict(cMdl, cTeFtrs);

classOrder = cMdl.ClassNames;
sv = cMdl.SupportVectors;
figure
gscatter(cTrFtrs(:,1),cTrFtrs(:,2),cTrLbls)
hold on
plot(sv(:,1),sv(:,2),'ko','MarkerSize',5)
legend('Obesity','Not Obesity','Support Vector')
hold off
% for test set
f1Score(preds, cTeLbls)
table(cTeLbls(1:10),preds(1:10),score(1:10,2),'VariableNames', {'TrueLabel','PredictedLabel','Score'})
%%k-fold cross validation for classification
k = 10;
sum_accuracy_svm = 0;
for i = 1:k
    [cFtrs, cLbls, validFtrs, validLbls] = getKFoldData(cFtrs, cLbls, i, k);
    classifer = fitcsvm(cFtrs, cLbls, 'KernelFunction', 'linear', 'BoxConstraint', 1);%训练模型
    predict_label  = predict(classifer, validFtrs);%test
    accuracy_svm = length(find(predict_label == validLbls))/length(validLbls)%acc
    sum_accuracy_svm = sum_accuracy_svm + accuracy_svm;
    
end
% get average acc
mean_accuracy_svm = sum_accuracy_svm / k;
disp('Classification: Average cross_validation accuracy :');   
disp( mean_accuracy_svm);


function [trainFtrs, trainLbls, validFtrs, validLbls] = getKFoldData(ftrs, lbls, i, k)
    foldSize = idivide(length(ftrs), int32(k));
    trainFtrs = zeros((k-1)*foldSize, size(ftrs, 2));
    trainLbls = zeros((k-1)*foldSize, size(lbls, 2));
    stackCnt = 0;
    for j=1:k
        if j == i
            validFtrs = ftrs((j-1)*foldSize+1:j*foldSize, :); 
            validLbls = lbls((j-1)*foldSize+1:j*foldSize, :); 
        else
            trainFtrs(stackCnt*foldSize+1:(stackCnt+1)*foldSize, :) = ftrs((j-1)*foldSize+1:j*foldSize, :); 
            trainLbls(stackCnt*foldSize+1:(stackCnt+1)*foldSize, :) = lbls((j-1)*foldSize+1:j*foldSize, :); 
            stackCnt = stackCnt + 1;
        end
    end
end

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 219,589评论 6 508
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 93,615评论 3 396
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 165,933评论 0 356
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,976评论 1 295
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,999评论 6 393
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,775评论 1 307
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,474评论 3 420
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,359评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,854评论 1 317
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 38,007评论 3 338
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 40,146评论 1 351
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,826评论 5 346
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,484评论 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 32,029评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 33,153评论 1 272
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 48,420评论 3 373
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 45,107评论 2 356