DevianceDetectionNaturalVocalisationsBats/DD_Plotting.m

%% define some variables

filt = 2; % 1: non, 2: 0.1 Hz, 3: 10 Hz, 4: 150 Hz, 5: 300 Hz
cutTime = 1; % plot only certain time window? (0: no, 1: short, 2: long)
avType = 1; % plot grand average (1) or individual averages (2)
fixedY = 1; % use dynamic (0) or fixed (1) y-axis?
inclCtrl = 2; % plot control data? (0: no, 1: 50 %, 2: MR, 3: both controls)
statsType = 2; % decide which statistics to use if control is included; 1: t-test, 2: ANOVA
plotWinI = 1; % plot RMS-windows?
plotRespI = 1; % plot responses?
plotDifI = 0; % plot difference curves?
plotMtrxI = 0; % plot all responses in a matrix?
plotHmI = 0; % plot heatmap?
hmDataI = 1; % choose data that should be plotted as heatmap (1: Cohens D; 2: RMS of control, only useful for 50Per dataset)
plotBpI = 0; % plot boxplots?
stimMark = 0; % decide how to plot the stimulus (no: 0, bar: 1)
cStart = 1; % stimulus combination to start with
oDisEloc = 0; % plot only DisNoAM and Eloc?
saveI = 0; % save figure?

% decide which set of rms-windows to plot
switch filt
        case {1,2,3}
            switch cutTime
                case 0
                    uWin = (1:5);
                    boxpFigWi = 800; % width of boxplot figure
                case 1
                    uWin = (4:4);
                    boxpFigWi = 300; % width of boxplot figure
                case 2
                    uWin = (4:5);
                    boxpFigWi = 500; % width of boxplot figure
            end
    case {4,5}
        uWin = (1:3);
        boxpFigWi = 500; % width of boxplot figure
end
% uWin = uWin+5;

switch filt
    case 1
        filtName = 'noF';
        y_lim = [-3.5,13];
    case 2
        filtName = '0.1F';
        y_lim = [-3.5,13];
    case 3
        filtName = '10F';
        y_lim = [-3.5,13];
    case 4
        filtName = '150F';
        y_lim = [-4.5,4.5];
    case 5
        filtName = '300F';
        y_lim = [-4,4];
end

% define colors and names
colDev = [1,0,0]; % dev: red
colStd = [0,0,1]; % std: blue
col50Per = [1,0,1]; % 50 %: magenta
colMR = [0,0,0]; % MR: black
nameDev = 'Deviant';
nameStd = 'Standard';
name50Per = '50 % Control';
nameMR = 'MS Control';

%% load processed data

switch inclCtrl
    case 0
        load('DD_statsData_noCtrl.mat') % load stats data
    case 1 % load 50Per data and rename important variables
        load('DD_avData_50Per.mat')
        dataAv_cell_Ctrl = dataAv_cell; % rename
        dataGrAv_cell_Ctrl = dataGrAv_cell;
        dataDifAv_cell_Ctrl = dataDifAv_cell; % rename
        dataDifGrAv_cell_Ctrl = dataDifGrAv_cell;
        dataSe_cell_Ctrl = dataSe_cell;
        filenames_cell_Ctrl = filenames_cell;
        load('DD_statsData_50Per.mat') % load stats data
        nameCtrl = name50Per;
        colCtrl = col50Per; % set control color to 50 % color
    case 2 % load MR data and rename important variables
        load('DD_avData_MR.mat')
        dataAv_cell_Ctrl = dataAv_cell; % rename
        dataGrAv_cell_Ctrl = dataGrAv_cell;
        dataDifAv_cell_Ctrl = dataDifAv_cell; % rename
        dataDifGrAv_cell_Ctrl = dataDifGrAv_cell;
        dataSe_cell_Ctrl = dataSe_cell;
        filenames_cell_Ctrl = filenames_cell;
        load('DD_statsData_MR.mat') % load stats data
        nameCtrl = nameMR;
        colCtrl = colMR; % set control color to MR color
    case 3
        load('DD_avData_50Per.mat')
        dataAv_cell_50Per = dataAv_cell; % rename
        dataGrAv_cell_50Per = dataGrAv_cell;
        dataDifAv_cell_50Per = dataDifAv_cell; % rename
        dataDifGrAv_cell_50Per = dataDifGrAv_cell;
        dataSe_cell_50Per = dataSe_cell;
        filenames_cell_50Per = filenames_cell;
        load('DD_avData_MR.mat')
        dataAv_cell_MR = dataAv_cell; % rename
        dataGrAv_cell_MR = dataGrAv_cell;
        dataDifAv_cell_MR = dataDifAv_cell; % rename
        dataDifGrAv_cell_MR = dataDifGrAv_cell;
        dataSe_cell_MR = dataSe_cell;
        filenames_cell_MR = filenames_cell;
        load('DD_statsData_bothCtrl.mat') % load stats data
end

% load Oddball data (will overwrite Ctrl variables that were not renamed)
load('DD_avData_Oddball.mat')
%% do some additional calculations

switch zsNormI
    case 0
        ylableName = 'Voltage [µV]';
    case 1
        ylableName = 'z-norm. voltage [a.u.]';
end

switch cutTime
    case 1
        switch filt
            case {1,2,3}
                timeStart = -5; % starting time of the plot (relative to stim onset)
                timeEnd = 15; % ending time of the plot (relative to stim onset)
            case {4,5}
                timeStart = -5; % starting time of the plot (relative to stim onset)
                timeEnd = 15; % ending time of the plot (relative to stim onset)
        end
    case 2
        timeStart = -5; % starting time of the plot (relative to stim onset)
        timeEnd = 40; % ending time of the plot (relative to stim onset)        
end

% some calculations for matrix- and heatmap-plotting
combNameS = split(combName(cStart:end),","); % split comb names at comma
if plotMtrxI==1||plotHmI==1
    oDisEloc = 0;
    cStart = 2; % skip first stimulus combination (pure tones)
    stimOrd = ["DisNoAM","DisAM","DisMimic","Eloc","ElocMimic"]; % define order of stimuli to plot in the matrix
    nStim = size(stimOrd,2);
    combCoord = zeros(nComb-1,2); % preallocate
    for c = 1:nComb-1
        for s = 1:2
            combCoord(c,s) = find(ismember(stimOrd,combNameS(c,s)));
        end
    end
    nTiles = 1:nStim*nStim; % number of tiles in matrix
    tileMtrx = reshape(nTiles,[nStim,nStim])'; % create matrix to use for indexing later
end

if oDisEloc==1 % plot only stim combination 7 (DisNoAM/Eloc) if oDisEloc is 1
    cStart = 7;
    nComb = 7;
end
%% plotting: responses

if plotRespI==1
    switch plotMtrxI
        case 1
            figure('NumberTitle','off','Name','All Stims','Position',[0,0,2000,1300],'Renderer','painters')
            t = tiledlayout(nStim,nStim);
    end
    for c = cStart:nComb % run once for each stimulus combination

        % extract data corresponding to current stimulation-condition from
        % cell-arrays
        switch plotDifI
            case 0
                dataAv = dataAv_cell{c};
                dataGrAv = dataGrAv_cell{c};
                dataSe = dataSe_cell{c};
                switch inclCtrl
                    case {1,2}
                        dataAvCtrl = dataAv_cell_Ctrl{c};
                        dataGrAvCtrl = dataGrAv_cell_Ctrl{c};
                        dataSeCtrl = dataSe_cell_Ctrl{c};
                        filenames_Ctrl = filenames_cell_Ctrl{c};
                        bsPos = cell2mat(strfind(filenames_Ctrl,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_Ctrl = extractAfter(filenames_Ctrl,startPos);
                    case 3
                        dataAv50Per = dataAv_cell_50Per{c};
                        dataGrAv50Per = dataGrAv_cell_50Per{c};
                        dataSe50Per = dataSe_cell_50Per{c};
                        filenames_50Per = filenames_cell_50Per{c};
                        bsPos = cell2mat(strfind(filenames_50Per,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_50Per = extractAfter(filenames_50Per,startPos);
                        dataAvMR = dataAv_cell_MR{c};
                        dataGrAvMR = dataGrAv_cell_MR{c};
                        dataSeMR = dataSe_cell_MR{c};
                        filenames_MR = filenames_cell_MR{c};
                        bsPos = cell2mat(strfind(filenames_MR,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_MR = extractAfter(filenames_MR,startPos);
                end
            case 1
                dataAv = dataDifAv_cell_Ctrl{c};
                dataGrAv = dataDifGrAv_cell_Ctrl{c};
                plotWinI = 0; % plot no significance windows when plotting diference curves
                switch inclCtrl
                    case 0
                        error('To plot difference curves, activate inclCtrl')
                    case {1,2}
                        dataAvCtrl = dataAv_cell_Ctrl{c}; % won't be plotted, only processed to keep the code simpler
                        dataGrAvCtrl = dataGrAv_cell_Ctrl{c};
                        filenames_Ctrl = filenames_cell_Ctrl{c};
                        bsPos = cell2mat(strfind(filenames_Ctrl,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_Ctrl = extractAfter(filenames_Ctrl,startPos);
                    case 3
                        dataAv50Per = dataAv_cell_50Per{c}; % won't be plotted, only processed to keep the code simpler
                        dataGrAv50Per = dataGrAv_cell_50Per{c};
                        filenames_50Per = filenames_cell_50Per{c};
                        bsPos = cell2mat(strfind(filenames_50Per,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_50Per = extractAfter(filenames_50Per,startPos);
                        dataAvMR = dataAv_cell_MR{c}; % won't be plotted, only processed to keep the code simpler
                        dataGrAvMR = dataGrAv_cell_MR{c};
                        filenames_MR = filenames_cell_MR{c};
                        bsPos = cell2mat(strfind(filenames_MR,'\')); % find positions of back slashes in filename
                        startPos = bsPos(:,end); % use last back slash position as starting point
                        filenames_MR = extractAfter(filenames_MR,startPos);
                end
        end
        filenames = filenames_cell{c};
        recID = recID_cell{c};
        bsPos = cell2mat(strfind(filenames,'\')); % find positions of back slashes in filename
        startPos = bsPos(:,end); % use last back slash position as starting point
        filenames = extractAfter(filenames,startPos);
        timetr = round(timetr_cell{c}*1000,4);
        stimDur = stimDur_cell{c}(1)*1000;
        stimDelay = stimDelay_cell{c}(1)*1000;
        stimWin = [stimDelay,stimDelay+stimDur];
        nFiles = nFiles_cell{c};
        fsDwn = fsDwn_cell{c};

        % process timetrace
        switch cutTime
            case 0
                timeWin = floor([timetr(1),timetr(end)]); % data in this window will be plotted (relative to recording onset)
                timeStart = timeWin(1)-(stimDelay);
                timeEnd = timeWin(2)-(stimDelay);
                timeCut = (1:size(timetr,2));
            case {1,2}
                timeWin = [round((stimDelay)+timeStart,4),...
                    round((stimDelay)+timeEnd,4)]; % data in this window will be plotted (relative to recording onset)
                timeCut = round(timeWin(1)/1000*fsDwn:timeWin(2)/1000*fsDwn);
        end

        % subdivide responses for simplicity
        ADevAv = dataAv{1};
        AStdAv = dataAv{2};
        BDevAv = dataAv{3};
        BStdAv = dataAv{4};
        ADevGrAv = dataGrAv{1};
        AStdGrAv = dataGrAv{2};
        BDevGrAv = dataGrAv{3};
        BStdGrAv = dataGrAv{4};
        ADevSe = dataSe{1};
        AStdSe = dataSe{2};
        BDevSe = dataSe{3};
        BStdSe = dataSe{4};
        switch inclCtrl
            case {1,2}
                AAvCtrl = dataAvCtrl{1};
                BAvCtrl = dataAvCtrl{2};
                AGrAvCtrl = dataGrAvCtrl{1};
                BGrAvCtrl = dataGrAvCtrl{2};
                ASeCtrl = dataSeCtrl{1};
                BSeCtrl = dataSeCtrl{2};
            case 3
                AAv50Per = dataAv50Per{1};
                BAv50Per = dataAv50Per{2};
                AGrAv50Per = dataGrAv50Per{1};
                BGrAv50Per = dataGrAv50Per{2};
                ASe50Per = dataSe50Per{1};
                BSe50Per = dataSe50Per{2};
                AAvMR = dataAvMR{1};
                BAvMR = dataAvMR{2};
                AGrAvMR = dataGrAvMR{1};
                BGrAvMR = dataGrAvMR{2};
                ASeMR = dataSeMR{1};
                BSeMR = dataSeMR{2};
        end


        % plot single channel
        for s = 1:2 % once for A, once for B
            switch s
                case 1
                    grAvStd = AStdGrAv;
                    grAvDev = ADevGrAv;
                    avStd = AStdAv;
                    avDev = ADevAv;
                    seStd = AStdSe;
                    seDev = ADevSe;
                    stimName = 'A';
                    switch inclCtrl
                        case {1,2}
                            grAvCtrl = AGrAvCtrl;
                            avCtrl = AAvCtrl;
                            seCtrl = ASeCtrl;
                        case 3
                            grAv50Per = AGrAv50Per;
                            av50Per = AAv50Per;
                            se50Per = ASe50Per;
                            grAvMR = AGrAvMR;
                            avMR = AAvMR;
                            seMR = ASeMR;
                    end
                case 2
                    grAvStd = BStdGrAv;
                    grAvDev = BDevGrAv;
                    avStd = BStdAv;
                    avDev = BDevAv;
                    seStd = BStdSe;
                    seDev = BDevSe;
                    stimName = 'B';
                    switch inclCtrl
                        case {1,2}
                            grAvCtrl = BGrAvCtrl;
                            avCtrl = BAvCtrl;
                            seCtrl = BSeCtrl;
                        case 3
                            grAv50Per = BGrAv50Per;
                            av50Per = BAv50Per;
                            se50Per = BSe50Per;
                            grAvMR = BGrAvMR;
                            avMR = BAvMR;
                            seMR = BSeMR;
                    end
            end
            switch plotMtrxI
                case 0
                    figure('NumberTitle','off','Name',[combName{c},'_',stimName],'Position',[0,0,1000,600])
                    title(combNameS(c,s))
                case 1
                    switch s % mirror coordinats with s
                        case 1
                            nexttile(tileMtrx(combCoord(c-1,2),combCoord(c-1,1)))
                        case 2
                            nexttile(tileMtrx(combCoord(c-1,1),combCoord(c-1,2)))
                    end
            end
            switch avType
                case 1 % grand averages
                    hold on
                    switch inclCtrl
                        case {1,2}
                            switch plotDifI
                                case 0 % plot control response only when difference curve is deactivated
                                    % plot standard error
                                    seHiCtrl = grAvCtrl(timeCut,filt)+seCtrl(timeCut,filt);
                                    seLoCtrl = grAvCtrl(timeCut,filt)-seCtrl(timeCut,filt);
                                    seX = [timetr(timeCut),fliplr(timetr(timeCut))];
                                    seY = [seHiCtrl',fliplr(seLoCtrl')];
                                    patch(seX,seY,colCtrl,'FaceAlpha',0.2,'EdgeColor','none')
                                    % plot data
                                    plotCtrl = plot(timetr(timeCut),grAvCtrl(timeCut,filt),'color',colCtrl,'Linewidth',2);
                            end
                        case 3
                            switch plotDifI
                                case 0 % plot control response only when difference curve is deactivated
                                    % plot standard error
                                    seHi50Per = grAv50Per(timeCut,filt)+se50Per(timeCut,filt);
                                    seLo50Per = grAv50Per(timeCut,filt)-se50Per(timeCut,filt);
                                    seX = [timetr(timeCut),fliplr(timetr(timeCut))];
                                    seY = [seHi50Per',fliplr(seLo50Per')];
                                    patch(seX,seY,col50Per,'FaceAlpha',0.2,'EdgeColor','none')
                                    % plot data
                                    plot50Per = plot(timetr(timeCut),grAv50Per(timeCut,filt),'color',col50Per,'Linewidth',2);
                                    % plot standard error
                                    seHiMR = grAvMR(timeCut,filt)+seMR(timeCut,filt);
                                    seLoMR = grAvMR(timeCut,filt)-seMR(timeCut,filt);
                                    seX = [timetr(timeCut),fliplr(timetr(timeCut))];
                                    seY = [seHiMR',fliplr(seLoMR')];
                                    patch(seX,seY,colMR,'FaceAlpha',0.2,'EdgeColor','none')
                                    % plot data
                                    plotMR = plot(timetr(timeCut),grAvMR(timeCut,filt),'color',colMR,'Linewidth',2);
                            end
                    end
                    % plot standard error
                    seHiDev = grAvDev(timeCut,filt)+seDev(timeCut,filt);
                    seLoDev = grAvDev(timeCut,filt)-seDev(timeCut,filt);
                    seX = [timetr(timeCut),fliplr(timetr(timeCut))];
                    seY = [seHiDev',fliplr(seLoDev')];
                    patch(seX,seY,colDev,'FaceAlpha',0.2,'EdgeColor','none')
                    % plot data
                    plotDev = plot(timetr(timeCut),grAvDev(timeCut,filt),'color',colDev,'Linewidth',2);
                    % plot standard error
                    seHiStd = grAvStd(timeCut,filt)+seStd(timeCut,filt);
                    seLoStd = grAvStd(timeCut,filt)-seStd(timeCut,filt);
                    seX = [timetr(timeCut),fliplr(timetr(timeCut))];
                    seY = [seHiStd',fliplr(seLoStd')];
                    patch(seX,seY,colStd,'FaceAlpha',0.2,'EdgeColor','none')
                    % plot data
                    plotStd = plot(timetr(timeCut),grAvStd(timeCut,filt),'color',colStd,'Linewidth',2);
                    xticks(timeWin(1):5:timeWin(2))
                    set(gca,'XTickLabel',timeStart:5:timeEnd)
                    switch stimMark
                        case 1 % plot bar
                            y_dist = y_lim(2)-y_lim(1);
                            y_min = y_lim(1)+y_dist*0.05;
                            x_stim = [stimWin(1);stimWin(2);stimWin(2);stimWin(1)];
                            y_stim = [y_min+y_dist*0.05;y_min+y_dist*0.05;y_min+y_dist*0.07;y_min+y_dist*0.07];
                            patch('XData',x_stim,'YData',y_stim,'EdgeColor','Black','EdgeAlpha',1,'FaceColor','Black','FaceAlpha',1)
                    end
                    switch plotMtrxI
                        case 0
                            xlabel('Time [ms]','FontWeight','bold','FontSize',20)
                            ylabel(ylableName,'FontWeight','bold','FontSize',20)
                            switch inclCtrl
                                case 0
                                    legend([plotDev,plotStd],nameDev,nameStd,'Location','northwest','AutoUpdate','off')
                                case {1,2}
                                    switch plotDifI
                                        case 0
                                            legend([plotDev,plotStd,plotCtrl],nameDev,nameStd,nameCtrl,'Location','northwest','AutoUpdate','off')
                                        case 1
                                            legend([plotDev,plotStd],nameDev,nameStd,'Location','northwest','AutoUpdate','off')
                                    end
                                case 3
                                    switch plotDifI
                                        case 0
                                            legend([plotDev,plotStd,plot50Per,plotMR],nameDev,nameStd,name50Per,nameMR,'Location','northwest','AutoUpdate','off')
                                        case 1
                                            legend([plotDev,plotStd],nameDev,nameStd,'Location','northwest','AutoUpdate','off')
                                    end
                            end
                        case 1
                            xlabel(t,'Time [ms]','FontWeight','bold','FontSize',20)
                            ylabel(t,ylableName,'FontWeight','bold','FontSize',20)
                    end
                    set(gca,'FontSize',20,'Linewidth',2,'FontName','Arial')
                    switch plotWinI
                        case 1
                            x_min = timetr(winAll(:,1));
                            x_max = timetr(winAll(:,2));
                            x = [x_min;x_max;x_max;x_min];
                            switch fixedY
                                case 0
                                    y_limAuto = ylim;
                                    y_min = y_limAuto(1);
                                    y_max = y_limAuto(2);
                                case 1
                                    y_min = y_lim(1);
                                    y_max = y_lim(2);
                            end
                            y_temp = [y_min;y_min;y_max;y_max];
                            y = repmat(y_temp,1,uWin(end));
                            for w = uWin
                                switch inclCtrl
                                    case 0
                                        statsV = pV(c,s,filt,w);
                                    case {1,2,3}
                                        switch statsType
                                            case 1 % use t-test statistics
                                                statsV = pV(c,s,filt,w); 
                                            case 2 % use ANOVA statistics
                                                statsV = multcompV{c,s,filt,w}.pValue(1); % extract pValue for comparison between dev and std condition
                                        end
                                end
                                if statsV<0.05
                                    sigWin = patch('XData',x(:,w),'YData',y(:,w),'EdgeColor','black','EdgeAlpha',1,'FaceColor','black','FaceAlpha',.2,'Linewidth',2);
                                else
                                    sigWin = patch('XData',x(:,w),'YData',y(:,w),'EdgeColor','black','EdgeAlpha',1,'FaceColor','none','Linewidth',2);
                                end
                                uistack(sigWin,'bottom')
                            end
                    end
                    xlim([timeWin(1),timeWin(2)])
                    if fixedY==1
                        ylim(y_lim)
                    end
                case 2 % individual averages
                    for f = 1:nFiles
                        figure ('NumberTitle','off','Name',[combName{c},'_',stimName,'_',convertStringsToChars(recID(f))],'Position',[0,0,1000,500])
                        hold on
                        switch inclCtrl
                            case {1,2}
                                switch plotDifI
                                    case 0 % plot control response only when difference curve is deactivated
                                        plotCtrl = plot(timetr(timeCut),avCtrl(timeCut,f,filt),'color',colCtrl,'Linewidth',2);
                                end
                            case 3
                                switch plotDifI
                                    case 0 % plot control response only when difference curve is deactivated
                                        plot50Per = plot(timetr(timeCut),av50Per(timeCut,f,filt),'color',col50Per,'Linewidth',2);
                                        plotMR = plot(timetr(timeCut),avMR(timeCut,f,filt),'color',colMR,'Linewidth',2);
                                end
                        end
                        plotStd = plot(timetr(timeCut),avStd(timeCut,f,filt),'color',colStd,'Linewidth',2);
                        plotDev = plot(timetr(timeCut),avDev(timeCut,f,filt),'color',colDev,'Linewidth',2);
                        xticks(timeWin(1):5:timeWin(2))
                        set(gca,'XTickLabel',timeStart:5:timeEnd)
                        switch stimMark
                            case 1 % plot bar
                                y_dist = y_lim(2)-y_lim(1);
                                y_min = y_lim(1)+y_dist*0.05;
                                x_stim = [stimWin(1);stimWin(2);stimWin(2);stimWin(1)];
                                y_stim = [y_min+y_dist*0.05;y_min+y_dist*0.05;y_min+y_dist*0.07;y_min+y_dist*0.07];
                                patch('XData',x_stim,'YData',y_stim,'EdgeColor','Black','EdgeAlpha',1,'FaceColor','Black','FaceAlpha',1)
                        end
                        xlabel('Time [ms]','FontWeight','bold','FontSize',20)
                        ylabel(ylableName,'FontWeight','bold','FontSize',20)
                        set(gca,'FontSize',20,'Linewidth',2,'FontName','Arial')
                        xlim([timeWin(1),timeWin(2)])
                        if fixedY==1
                            ylim(y_lim)
                        end
                    end
            end
            if saveI==1
                switch plotMtrxI
                    case 0
                        saveas(gcf,[combName{c},'_',stimName,'_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.jpg'])
                        saveas(gcf,[combName{c},'_',stimName,'_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.svg'])
                end
            end
        end
    end
    if saveI==1
        switch plotMtrxI
            case 1
                saveas(gcf,['Matrix_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.jpg'])
                saveas(gcf,['Matrix_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.svg'])
        end
    end
end
%% plotting: data-heatmap

if plotHmI==1
    % do some prior calculations
    rgb1 = [(0:0.01:1),ones(1,101)]';
    rgb2 = [(0:0.01:1),(1:-0.01:0)]';
    rgb3 = [ones(1,101),(1:-0.01:0)]';
    cMap = [rgb1,rgb2,rgb3];
    % create matrix containing the data of interest
    hmMtrx = NaN(nStim,nStim);

    for c = cStart:nComb
        for s = 1:2
            for w = uWin
                switch hmDataI
                    case 1
                        data = round(cohensD_V(c,s,filt,w,1),2); % Cohen's D of comparison between dev and std responses
                    case 2
                        data = round(rmsGrAv{c}(s,3,filt,w),2); % grand average RMS values of control response
                end
                switch s % mirror coordinats with s
                    case 1
                        hmMtrx(tileMtrx(combCoord(c-1,1),combCoord(c-1,2))) = data; % ATTENTION: coordinates change with s in the opposite way as when creating a tiled layout because matrix is filled up from top to bottom while tiled layout is filled from left to right
                    case 2
                        hmMtrx(tileMtrx(combCoord(c-1,2),combCoord(c-1,1))) = data;
                end
            end
        end
    end
    % create heatmap
    xvalues = stimOrd;
    yvalue = stimOrd;
    figure('NumberTitle','off','Name','Heatmap','Position',[0,0,1450,1300],'Renderer','painters')
    h = heatmap(xvalues,yvalue,hmMtrx);
    % do calculations for heatmap
    cmap = colormap(h);
    sCmap = size(cmap);
    h.Title = 'Cohens D';
    h.XLabel = 'Active Stimulus';
    h.YLabel = 'Modulatory Stimulus';
    h.MissingDataColor = [0.7,0.7,0.7];
    lims = clim;
    hmMax = max(abs(hmMtrx),[],'all');
    switch hmDataI
        case 1
            hmMin = -hmMax;
            h.Colormap = cMap;
        case 2
            hmMin = 0;
            h.Colormap = summer;
    end
    clim([hmMin,hmMax])
    set(gca,'FontSize',20,'FontName','Arial')
    if saveI==1
        saveas(gcf,['Heatmap_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.jpg'])
        saveas(gcf,['Heatmap_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.svg'])
    end
end
%% plotting: boxplots

if plotBpI==1
    switch plotMtrxI
        case 1
            figure('NumberTitle','off','Name','Boxpl_All Stims','Position',[0,0,1500,1300],'Renderer','painters')
            t = tiledlayout(nStim,nStim);
            title(t,'RMS','FontWeight','bold','FontSize',25)
    end
    switch inclCtrl
        case 0
            xDev = [1,4,7,10,13];
            xStd = [2,5,8,11,14];
            sig_groups = {[1,2],[4,5],[7,8],[10,11],[13,14]};
        case {1,2}
            xDev = [1,5,9,13,17];
            xStd = [2,6,10,14,18];
            xCtrl = [3,7,11,15,19];
            sig_groups1 = {[1,2],[5,6],[9,10],[13,14],[17,18]}; % dev vs. std
            sig_groups2 = {[1,3],[5,7],[9,11],[13,15],[17,19]}; % dev vs. ctrl
            sig_groups3 = {[2,3],[6,7],[10,11],[14,15],[18,19]}; % std vs. ctrl
        case 3
            xDev = [1,6,11,16,21];
            xStd = [2,7,12,17,22];
            x50Per = [3,8,13,18,23];
            xMR = [4,9,14,19,24];
            sig_groups1 = {[1,2],[6,7],[11,12],[16,17],[21,22]}; % dev vs. std
            sig_groups2 = {[1,3],[6,8],[11,13],[16,18],[21,23]}; % dev vs. 50Per
            sig_groups3 = {[1,4],[6,9],[11,14],[16,19],[21,24]}; % dev vs. MR
            sig_groups4 = {[2,3],[7,8],[12,13],[17,18],[22,23]}; % 50Per vs. std
            sig_groups5 = {[2,4],[7,9],[12,14],[17,19],[22,24]}; % MR vs. std
            sig_groups6 = {[3,4],[8,9],[13,14],[18,19],[23,24]}; % MR vs. 50Per
    end

    for c = cStart:nComb % run once for each stimulus combination
        for s = 1:2 % once for A, once for B
            switch s
                case 1
                    stimName = 'A';
                case 2
                    stimName = 'B';
            end
            rmsMin = floor(min(rmsV{c}(:,s,:,filt,:),[],'all')); % identify minimum RMS value for y-limit
            rmsMax = ceil(max(rmsV{c}(:,s,:,filt,:),[],'all')); % identify maximum RMS value for y-limit
            switch plotMtrxI
                case 0
                    figure('NumberTitle','off','Name',['Boxpl_',combName{c},'_',stimName],'Position',[0,0,boxpFigWi,400])
                    title('RMS')
                case 1
                    switch s % mirror coordinats with s
                        case 1
                            nexttile(tileMtrx(combCoord(c-1,2),combCoord(c-1,1)))
                        case 2
                            nexttile(tileMtrx(combCoord(c-1,1),combCoord(c-1,2)))
                    end
            end
            ylim([rmsMin-0.5,rmsMax+1])
            for w = uWin
                hold on
                boxDev = boxchart(xDev(w)*ones(size(rmsV{c}(:,s,1,filt,w))),rmsV{c}(:,s,1,filt,w),'BoxFaceColor',colDev,'MarkerColor',colDev,'Linewidth',2);
                boxStd = boxchart(xStd(w)*ones(size(rmsV{c}(:,s,2,filt,w))),rmsV{c}(:,s,2,filt,w),'BoxFaceColor',colStd,'MarkerColor',colStd,'Linewidth',2);
                % switch inclCtrl
                %     case 0
                %         H = sigstar(sig_groups{w},pV(c,s,filt,w),cohensD_V(c,s,filt,w,1));
                %     case {1,2}
                %         boxCtrl = boxchart(xCtrl(w)*ones(size(rmsV{c}(:,s,3,filt,w))),rmsV{c}(:,s,3,filt,w),'BoxFaceColor',colCtrl,'MarkerColor',colCtrl,'Linewidth',2);
                %         switch statsType
                %             case 1
                %                 H = sigstar(sig_groups1{w},pV(c,s,filt,w),cohensD_V(c,s,filt,w,1));
                %             case 2
                %                 statsV = multcompV{c,s,filt,w}.pValue([1,2,4]);
                %                 eS = zeros(3,1);
                %                 for cmp = 1:3
                %                     eS(cmp) = cohensD_V(c,s,filt,w,cmp);
                %                 end
                %                 H = sigstar({sig_groups1{w},sig_groups2{w},sig_groups3{w}},statsV,eS);
                %         end
                %     case 3
                %         box50Per = boxchart(x50Per(w)*ones(size(rmsV{c}(:,s,3,filt,w))),rmsV{c}(:,s,3,filt,w),'BoxFaceColor',col50Per,'MarkerColor',col50Per,'Linewidth',2);
                %         boxMR = boxchart(xMR(w)*ones(size(rmsV{c}(:,s,4,filt,w))),rmsV{c}(:,s,4,filt,w),'BoxFaceColor',colMR,'MarkerColor',colMR,'Linewidth',2);
                %         switch statsType
                %             case 1
                %                 H = sigstar(sig_groups1{w},pV(c,s,filt,w),cohensD_V(c,s,filt,w,1));
                %             case 2
                %                 statsV = multcompV{c,s,filt,w}.pValue([1,2,3,5,6,9]);
                %                 eS = zeros(6,1);
                %                 for cmp = 1:6
                %                     eS(cmp) = cohensD_V(c,s,filt,w,cmp);
                %                 end
                %                 H = sigstar({sig_groups1{w},sig_groups2{w},sig_groups3{w},sig_groups4{w},sig_groups5{w},sig_groups6{w}},statsV,eS);
                %         end
                % end
                set(H(:,2),'FontSize',25,'FontName','Arial')
            end
            switch inclCtrl
                case 0
                    xlim([xDev(uWin(1))-1,xStd(uWin(end))+1])
                    xticks((xDev(uWin)+xStd(uWin))/2)
%                     legend([boxDev,boxStd],nameDev,nameStd,'Location','northwest','AutoUpdate','off')
                case {1,2}
                    xlim([xDev(uWin(1))-1,xCtrl(uWin(end))+1])
                    xticks(xStd(uWin))
%                     legend([boxDev,boxStd,boxCtrl],nameDev,nameStd,nameCtrl,'Location','northwest','AutoUpdate','off')
                case 3
                    xlim([xDev(uWin(1))-1,xMR(uWin(end))+1])
                    xticks((xStd(uWin)+x50Per(uWin))/2)
%                     legend([boxDev,boxStd,box50Per,boxMR],nameDev,nameStd,name50Per,nameMR,'Location','northwest','AutoUpdate','off')
            end
            switch plotMtrxI
                case 0
                    ylabel(ylableName,'FontWeight','bold','FontSize',20)
                    xticklabels(winTxt(uWin))
                case 1
                    ylabel(t,ylableName,'FontWeight','bold','FontSize',20)
                    xticks([])
                    ylim([0,15])
            end
            set(gca,'FontSize',25,'Linewidth',2,'FontName','Arial')
            if saveI==1
                switch plotMtrxI
                    case 0
                        saveas(gcf,['Boxp_',combName{c},'_',stimName,'_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.jpg'])
                        saveas(gcf,['Boxp_',combName{c},'_',stimName,'_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.svg'])
                end
            end
        end
    end
    if saveI==1
        switch plotMtrxI
            case 1
                saveas(gcf,['Boxpl_Matrix_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.jpg'])
                saveas(gcf,['Boxpl_Matrix_',filtName,'_cutTime',num2str(cutTime),'_ctrl',num2str(inclCtrl),'.svg'])
        end
    end
end