clear;

CM = load('confusionMatrix_5Exp.mat');

fieldNames = fieldnames(CM);

fieldNames = fieldNames';

varNames = {'CM', 'Sen', 'Spc', 'Prc', 'F1', 'Acc'};

varTypes = {'cell', 'double', 'double', 'double', 'double', 'double'};

CMCell = cell(numel(fieldNames),1);

CMTable = table('Size', [numel(fieldNames) numel(varNames)], 'VariableTypes', varTypes, 'VariableNames', varNames, 'RowNames', fieldNames);

for iField = 1:numel(fieldNames)

curCM = getfield(CM, fieldNames{iField});

resultCM = genRes(curCM);

CMCell{iField} = curCM;

CMTable(iField, :) = {{curCM}, resultCM.Sensitivity, resultCM.Specificity, resultCM.Precision, resultCM.F1, resultCM.Accuracy};

end

%% Support Functions

function resultCM = genRes(CM)

resultCM.Sensitivity = CM(1,1)/(CM(1,1) + CM(2,1));

resultCM.Specificity = CM(2,2)/(CM(2,2) + CM(1,2));

resultCM.Precision = CM(1,1)/(CM(1,1) + CM(1,2));

resultCM.F1 = 2*((resultCM.Precision*resultCM.Specificity)/(resultCM.Precision+resultCM.Specificity));

resultCM.Accuracy = (CM(1,1)+CM(2,2))/sum(CM, 'all')*100;

end