|
|
@@ -1,729 +0,0 @@
|
|
|
-%% 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]) % doesn't set the actual y-lim, is just required to get an equal distance between lines and asterisks of sigstar. Sigstar sets the actual y-lim itself
|
|
|
- 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
|
