Documentation: Some Practical Examples of how to use the BBCI Toolbox
IN CONSTRUCTION
Table of Contents
ERP Analysis: #ERP-Analysis
Spectral Analyses: #Spectral-Analysis
ERD/ERS Analyses: #ERD-Analysis
<more to come>
ERP Analysis
1 file= 'VPibv_10_11_02/CenterSpellerMVEP_VPibv';
2 [cnt, mrk, mnt]= eegfile_loadMatlab(file);
3
4 % Define some settings
5 disp_ival= [-200 1000];
6 ref_ival= [-200 0];
7 crit_maxmin= 70;
8 crit_ival= [100 800];
9 crit_clab= {'F9,z,10','AF3,4'};
10 clab= {'Cz','PO7'};
11 colOrder= [1 0 1; 0.4 0.4 0.4];
12
13 % Apply highpass filter to reduce drifts
14 b= procutil_firlsFilter(0.5, cnt.fs);
15 cnt= proc_filtfilt(cnt, b);
16
17 % Artifact rejection based on variance criterion
18 mrk= reject_varEventsAndChannels(cnt, mrk, disp_ival, 'verbose', 1);
19
20 % Segmentation
21 epo= cntToEpo(cnt, mrk, disp_ival);
22
23 % Artifact rejection based on maxmin difference criterion on frontal chans
24 epo= proc_rejectArtifactsMaxMin(epo, crit_maxmin, ...
25 'clab',crit_clab, 'ival',crit_ival, 'verbose',1);
26
27 % Baseline subtraction, and calculation of a measure of discriminability
28 epo= proc_baseline(epo, ref_ival);
29 epo_r= proc_r_square_signed(epo);
30
31 % Select some discriminative intervals, with constraints to find N2, P2, P3 like components.
32 fig_set(1);
33 constraint= ...
34 {{-1, [100 300], {'I#','O#','PO7,8','P9,10'}, [50 300]}, ...
35 {1, [200 350], {'P3-4','CP3-4','C3-4'}, [200 400]}, ...
36 {1, [400 500], {'P3-4','CP3-4','C3-4'}, [350 600]}};
37 [ival_scalps, nfo]= ...
38 select_time_intervals(epo_r, 'visualize', 1, 'visu_scalps', 1, ...
39 'title', untex(file), ...
40 'clab',{'not','E*'}, ...
41 'constraint', constraint);
42 printFigure('r_matrix', [18 13]);
43 ival_scalps= visutil_correctIvalsForDisplay(ival_scalps, 'fs',epo.fs);
44
45 fig_set(3)
46 H= grid_plot(epo, mnt, defopt_erps, 'colorOrder',colOrder);
47 grid_addBars(epo_r, 'h_scale',H.scale);
48 printFigure(['erp'], [19 12]);
49
50 fig_set(2);
51 H= scalpEvolutionPlusChannel(epo, mnt, clab, ival_scalps, defopt_scalp_erp2, ...
52 'colorOrder',colOrder);
53 grid_addBars(epo_r);
54 printFigure(['erp_topo'], [20 4+5*size(epo.y,1)]);
55
56 fig_set(4, 'shrink',[1 2/3]);
57 scalpEvolutionPlusChannel(epo_r, mnt, clab, ival_scalps, defopt_scalp_r2);
58 printFigure(['erp_topo_r'], [20 9]);
Even in this very basic ERP analysis, there are several steps, in which the choice of processing can have quite a big impact on the results, but nevertheless, the correct choice is not clear to us (maybe we will find out a recommendable choice at some point).
Highpass filter (lines 14-15). Highpass filtering may be beneficial to reduce the impact of drifts. But the choice of the filter has quite some impact on the ERPs, in particular, the later ERPs. Alternatives are proc_subtractMovingAverage(cnt, 1500, 'centered', 'sinus'), other highpass filters, or no highpass filtering at all. Also bandpass filtering is an alternative (e.g. [0.5 30]), but typically the lowpass filtering is not required since high frequency are dampened also by the normal ERP averaging across trials.
Baseline correction (line 28). For the ERP themselves the choice of baseline correction does not matter. They stay the same. But for the measure for discriminability (e.g. r2-values) it may have a big impact. In this example, baseline correction is performed on a trialwise basis. This way it is done for online experiments. For the ERP analysis this may be have the disturbing consequency, that the r2-values in/near the baseline interval can become spuriously high, since the trial-to-trial variance is artificially reduced. Alternatives are to subtract the across-trials average of the baseline (option 'trialwise',0 in proc_baseline) or to subtract the classwise average of the baseline (option 'classwise',1 in proc_baseline).
- Measure for discriminability (line 29). Choices are, e.g., signed r^2, t-values, p-values, AUC-score.
If, in an oddball-like paradigm, stimuli are presented in a fast sequence, it might be beneficial for the ERP analysis to constrain the occurrence of target stimuli within the time interval of investigation. This has to be done as first operation for marker processing (i.e., before the artifact rejection in line 18). To exclude target occurrences before/after the event at t=0, use the function mrk_selectTargetDist. E.g., to exclude targets to be one of the 3 preceding and the 2 subsequent stimuli, use mrk= mrk_selectTargetDist(mrk, [3 2]); . Defining different constraints for target and nontarget events is also possible.
Spectral Analysis
1 file= 'Pavel_01_11_23/selfpaced2sPavel';
2 [cnt, mrk, mnt]= eegfile_loadMatlab(file);
3
4 colOrder= [245 159 0; 0 150 200]/255;
5 opt_grid_spec= defopt_spec('xTickAxes','O2', ...
6 'colorOrder',colOrder);
7
8 ival_spec= [-1000 0]; % Pre-movement interval: investigate motor-preparation
9 band_list= [7 11; 11 14; 20 24; 26 36];
10 clab= {'C3','C4'};
11 winlen= cnt.fs; % length of FFT in proc_spectrum: 1s. To investigate spectra of short
12 % epochs taking 0.5s is also possible -> frequency resolution 2Hz.
13
14 % Artifact rejection based on variance criterion
15 mrk= reject_varEventsAndChannels(cnt, mrk, ival_spec, 'verbose', 1);
16
17 % Segmentation
18 spec= cntToEpo(cnt, mrk, ival_spec);
19 spec_lar= proc_localAverageReference(spec, mnt, 'radius',0.4);
20 spec_lar= proc_spectrum(spec_lar, [5 40], kaiser(winlen,2));
21 spec= proc_spectrum(spec, [5 40], kaiser(winlen,2));
22 spec_r= proc_r_square_signed(spec);
23 spec_lar_r= proc_r_square_signed(spec_lar);
24
25 fig_set(1);
26 H= grid_plot(spec, mnt, opt_grid_spec);
27 %grid_markIval(band_erd); % to shade a certain frequency band
28 grid_addBars(spec_r, 'h_scale',H.scale);
29
30 fig_set(5);
31 H= grid_plot(spec_lar, mnt, opt_grid_spec);
32 grid_addBars(spec_lar_r, 'h_scale',H.scale);
33
34 fig_set(2);
35 H= scalpEvolutionPlusChannel(spec, mnt, clab, band_list, ...
36 defopt_scalp_power2, ...
37 'colorOrder',colOrder, ...
38 'scalePos','horiz', ...
39 'globalCLim',0);
40 grid_addBars(spec_r);
41
42 fig_set(4, 'shrink',[1 2/3]);
43 scalpEvolutionPlusChannel(spec_r, mnt, clab, band_list, defopt_scalp_r2);
44
45
46 %% Do the same with subtracting the spectrum in a reference time interval
47 % Here we use a post-movement interval.
48 ref_ival= [200 1200];
49
50 mrk_ref= mrk;
51 mrk_ref.y= ones(1, length(mrk_ref.pos));
52 mrk_ref.className= {'ref'};
53 mrk_ref= reject_varEventsAndChannels(cnt, mrk_ref, ref_ival);
54 spec_baseline= makeEpochs(cnt, mrk_ref, ref_ival);
55 spec_baseline= proc_spectrum(spec_baseline, [5 40], kaiser(winlen,2));
56 spec_baseline= proc_average(spec_baseline);
57 spec_ref= proc_subtractReferenceClass(spec, spec_baseline);
58
59 fig_set(6);
60 H= scalpEvolutionPlusChannel(spec_ref, mnt, clab, band_list, ...
61 defopt_scalp_power2, ...
62 'extrapolate', 0, ...
63 'colorOrder',colOrder);
64 grid_addBars(spec_r);
ERD/ERS Analysis
Investigating the time course of band-power, i.e., ERD/ERS curves is pretty much like ERP analysis, but with calculating the envelope of the band-pass filtered signals before:
1 file= 'Pavel_01_11_23/selfpaced2sPavel';
2 [cnt, mrk, mnt]= eegfile_loadMatlab(file, 'clab',{'not','E*'});
3
4 colOrder= [245 159 0; 0 150 200]/255;
5 ival_erd= [-1000 500];
6 band_erd= [11 14];
7 ival_scalps= -800:200:200;
8
9 % Bandpass to the frequency band of interest
10 [b,a]= butter(5, band_erd/cnt.fs*2);
11 cnt= proc_filt(cnt, b, a);
12
13 % Artifact rejection based on variance criterion
14 mrk= reject_varEventsAndChannels(cnt, mrk, ival_erd, ...
15 'do_bandpass', 0, ...
16 'verbose', 1);
17
18 epo= makeEpochs(cnt, mrk, ival_erd);
19 erd_lar= proc_localAverageReference(epo, mnt, 'radius',0.4);
20 erd_lar= proc_envelope(erd_lar, 'ma_msec', 200);
21 erd_lar= proc_baseline(erd_lar, [], 'trialwise', 0);
22 erd= proc_envelope(epo, 'ma_msec', 200);
23 erd= proc_baseline(erd, [], 'trialwise', 0);
24 erd_lar_r= proc_r_square_signed(erd_lar);
25 erd_r= proc_r_square_signed(erd);
26
27 fig_set(1)
28 H= grid_plot(erd, mnt, defopt_erps, 'colorOrder',colOrder);
29 grid_addBars(erd_r, 'h_scale',H.scale);
30 fig_set(5)
31 H= grid_plot(erd_lar, mnt, defopt_erps, 'colorOrder',colOrder);
32 grid_addBars(erd_lar_r, 'h_scale',H.scale);
33
34 fig_set(2);
35 H= scalpEvolutionPlusChannel(erd, mnt, clab, ival_scalps, defopt_scalp_erp2, ...
36 'colorOrder',colOrder);
37 grid_addBars(erd_r);
38
39 fig_set(4, 'shrink',[1 2/3]);
40 scalpEvolutionPlusChannel(erd_r, mnt, clab, ival_scalps, defopt_scalp_r2);