Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
bucanl_eeglab_versions
eeglab_lossless
Commits
20f26fac
Commit
20f26fac
authored
May 09, 2018
by
Mike Cichonski
Browse files
added figures and improvements to group study_diagnostics.m
parent
b0ccf6d3
Changes
2
Hide whitespace changes
Inline
Side-by-side
plugins/other_functions/rotate_ticks.m
0 → 100644
View file @
20f26fac
function
[
tl1
,
tl2
]
=
rotatetl
(
h
,
rot
,
tb
)
%%%%%%%%%%%%%%%%%%%% Get current graph properties %%%%%%%%%%%%%%%%%%%%%%%
a
=
get
(
h
,
'XTickLabel'
);
b
=
transpose
(
get
(
h
,
'XTick'
));
c
=
get
(
h
,
'YLim'
);
if
strcmpi
(
tb
,
't'
)
||
strcmpi
(
tb
,
'top'
),
tb
=
2
;
elseif
strcmpi
(
tb
,
'b'
)
||
strcmpi
(
tb
,
'bottom'
),
tb
=
1
;
else
disp
(
'The third argument is not recognized, try top or bottom'
);
end
%%%%%%%%%%%%%%%% Erase current tick labels from figure %%%%%%%%%%%%%%%%%%
set
(
h
,
'XTickLabel'
,[]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Routine %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if
rot
>=
0
||
rot
<=
360
,
flag
=
1
;
while
flag
rot
=
mod
(
rot
,
360
);
if
rot
>=
0
&&
rot
<=
360
,
flag
=
0
;
end
end
end
k
=
1
;
while
k
<=
size
(
a
,
1
);
a1
(
k
/
2
+
0.5
,:)
=
a
(
k
,:);
b1
(
k
/
2
+.
5
)
=
b
(
k
);
if
k
+
1
<=
size
(
a
,
2
);
a2
(
k
/
2
+.
5
,:)
=
a
(:,
k
+
1
);
end
if
k
+
1
<=
size
(
b
,
1
);
b2
(
k
/
2
+.
5
)
=
b
(
k
+
1
);
end
k
=
k
+
2
;
end
c1
=
(
c
(
1
,
tb
)
-
(
c
(
1
,
2
)
-
c
(
1
,
1
))
*
0.017
)
.*
ones
(
1
,
length
(
b1
));
% upper ticks
c2
=
(
c
(
1
,
tb
)
-
(
c
(
1
,
2
)
-
c
(
1
,
1
))
*
0.017
)
.*
ones
(
1
,
length
(
b2
));
% lower ticks
tl1
=
text
(
b1
,
c1
,
a1
,
'HorizontalAlignment'
,
'center'
,
'rotation'
,
rot
,
'VerticalAlignment'
,
'cap'
);
tl2
=
text
(
b2
,
c2
,
a2
,
'HorizontalAlignment'
,
'center'
,
'rotation'
,
rot
,
'VerticalAlignment'
,
'cap'
);
end
\ No newline at end of file
plugins/other_functions/study_diagnostics.m
0 → 100644
View file @
20f26fac
function
study_diagnostics
(
ALLEEG
,
batch_config
)
% diagnostics(ALLEEG,type) - Creates figures to aid user in understanding
% the generated marks, and the overal quality of the data.
%
%Copyright (C) 2017 BUCANL
%
%Code originally written by James A. Desjardins with contributions from
%Allan Campopiano and Andrew Lofts, supported by NSERC funding to
%Sidney J. Segalowitz at the Jack and Nora Walker Canadian Centre for
%Lifespan Development Research (Brock University), and a Dedicated Programming
%award from SHARCNet, Compute Ontario.
%
%This program is free software; you can redistribute it and/or modify
%it under the terms of the GNU General Public License as published by
%the Free Software Foundation; either version 2 of the License, or
%(at your option) any later version.
%
%This program is distributed in the hope that it will be useful,
%but WITHOUT ANY WARRANTY; without even the implied warranty of
%MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%GNU General Public License for more details.
%
%You should have received a copy of the GNU General Public License
%along with this program (LICENSE.txt file in the root directory); if not,
%write to the Free Software Foundation, Inc., 59 Temple Place,
%Suite 330, Boston, MA 02111-1307 USA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%% Beginning of Calculating Statistics
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
data_chans
=
[];
data_time
=
[];
ica_chans
=
[];
sub_names
=
[];
sub_dir
=
dir
(
'bids/derivatives/lossless/sub-*'
);
for
i
=
1
:
length
(
sub_dir
);
set_name
=
dir
([
'bids/derivatives/lossless/'
sub_dir
(
i
)
.
name
'/eeg/*set'
]);
if
~
isempty
(
set_name
);
set_name
=
[
'bids/derivatives/lossless/'
sub_dir
(
i
)
.
name
'/eeg/'
set_name
.
name
];
EEG
=
pop_loadset
(
'filename'
,
set_name
,
'loadmode'
,
'info'
);
else
EEG
=
[];
end
if
~
isempty
(
EEG
);
ALLEEG
=
horzcat
(
ALLEEG
,
EEG
);
end
end
%dat_ch_sd_all = ones(size(ALLEEG,1),longest_recording,ALLEEG(i).nbchan); % assuming all recordings have same number of channels
%dat_sd_t_all = ones(size(ALLEEG,1),longest_recording,ALLEEG(i).nbchan);
%icaact_sd1_t_all = ones(length(ALLEEG(1)),longest_recording,largest_ica_count);
%icaact_sd2_t_all = ones(length(ALLEEG(1)),longest_recording,largest_ica_count);
for
i
=
1
:
length
(
ALLEEG
);
EEG
=
ALLEEG
(
i
);
fprintf
([
'\nChecking marks for file '
EEG
.
filename
'...\n'
]);
fin_underscore
=
regexp
(
EEG
.
filename
,
'_'
);
fin_underscore
=
fin_underscore
(
end
);
base_name
=
EEG
.
filename
(
1
:
fin_underscore
-
1
);
sub_names
=
horzcat
(
sub_names
,
base_name
(
5
:
end
));
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Channels
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fprintf
(
'\nChannels\n'
);
fprintf
(
'==================================================\n'
);
for
j
=
1
:
length
(
EEG
.
marks
.
chan_info
)
%just flags
x
=
length
(
find
(
EEG
.
marks
.
chan_info
(
j
)
.
flags
));
% All chans
y
=
length
(
EEG
.
marks
.
chan_info
(
j
)
.
flags
);
disp
([
'Flagged: '
num2str
(
x
)
'/'
num2str
(
y
)
' Channels for '
EEG
.
marks
.
chan_info
(
j
)
.
label
]);
end
%%%%%%%%%%%%%%%%%%
% Pie Chart Info %
%%%%%%%%%%%%%%%%%%
ca
=
length
(
EEG
.
marks
.
chan_info
(
1
)
.
flags
);
% All time
c2
=
length
(
find
(
EEG
.
marks
.
chan_info
(
2
)
.
flags
));
% 2
c3
=
length
(
find
(
EEG
.
marks
.
chan_info
(
3
)
.
flags
));
% 3
c4
=
length
(
find
(
EEG
.
marks
.
chan_info
(
4
)
.
flags
));
% 4
cm
=
length
(
find
(
EEG
.
marks
.
chan_info
(
1
)
.
flags
));
% 5
ca
=
ca
-
cm
;
% Remaining All time
cpie
=
[
ca
c2
c3
c4
];
data_chans
=
vertcat
(
data_chans
,
cpie
);
%%%%%%%%%%%%%%%%%%%%%
% Scatter Plot Info %
%%%%%%%%%%%%%%%%%%%%%
s
=
'[sd_ch_meth]'
;
sd_ch_meth
=
strtrim
(
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
));
s
=
'[sd_ch_vals]'
;
sd_ch_vals
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_ch_o]'
;
sd_ch_o
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_ch_p]'
;
sd_ch_p
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
%data_sd_ch = load([EEG.filepath '/' base_name '_data_sd_ch.mat']);
%fieldname = fieldnames(data_sd_ch);
%fieldname = fieldname{1};
%data_sd_ch = data_sd_ch.(fieldname);
%dat_ch_sd_all(:,:,i) = data_sd_ch;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Time
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fprintf
(
'\nTime\n'
);
fprintf
(
'==================================================\n'
);
for
j
=
1
:
length
(
EEG
.
marks
.
time_info
)
%just flags
x
=
length
(
find
(
EEG
.
marks
.
time_info
(
j
)
.
flags
));
% All time
y
=
length
(
EEG
.
marks
.
time_info
(
j
)
.
flags
);
disp
([
'Flagged: '
num2str
((
x
/
y
)
*
100
)
' % of Time for '
EEG
.
marks
.
time_info
(
j
)
.
label
]);
end
%%%%%%%%%%%%%%%%%%
% Pie Chart Info %
%%%%%%%%%%%%%%%%%%
% outtask vs manual vs time remaining piechart
ca
=
length
(
EEG
.
marks
.
time_info
(
1
)
.
flags
);
% All time
co
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
({
'out_task'
,
'in_leadup'
},{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
mgap
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'mark_gap'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
chsd
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'ch_sd'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
lowr
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'low_r'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
icsd1
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'ic_sd1'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
icsd2
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'ic_sd2'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
cm
=
length
(
marks_label2index
(
EEG
.
marks
.
time_info
,
...
marks_match_label
(
'manual'
,{
EEG
.
marks
.
time_info
.
label
}),
...
'indices'
));
cr
=
ca
-
cm
;
% Remaining All time
cpie
=
[
cr
co
mgap
chsd
lowr
icsd1
icsd2
];
data_time
=
vertcat
(
data_time
,
cpie
);
%%%%%%%%%%%%%%%%%%%%%
% Scatter Plot Info %
%%%%%%%%%%%%%%%%%%%%%
s
=
'[sd_t_meth]'
;
sd_t_meth
=
strtrim
(
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
));
s
=
'[sd_t_vals]'
;
sd_t_vals
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_o]'
;
sd_t_o
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_p]'
;
sd_t_p
=
batch_config
(
1
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
1
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
%data_sd_t = load([EEG.filepath '/' base_name '_data_sd_t.mat']);
%fieldname = fieldnames(data_sd_t);
%fieldname = fieldname{1};
%data_sd_t = data_sd_t.(fieldname);
%dat_sd_t_all(:,:,i) = data_sd_t;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Components
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fprintf
(
'\nICA Components\n'
);
fprintf
(
'==================================================\n'
);
disp
([
'Identified '
num2str
(
min
(
size
(
EEG
.
icaweights
)))
' components from '
num2str
(
length
(
EEG
.
icachansind
))
' channels'
]);
%%%%%%%%%%%%%%%%%%
% Pie Chart Info %
%%%%%%%%%%%%%%%%%%
ca
=
length
(
find
(
EEG
.
reject
.
classtype
==
1
));
c2
=
length
(
find
(
EEG
.
reject
.
classtype
==
2
));
c3
=
length
(
find
(
EEG
.
reject
.
classtype
==
3
));
c4
=
length
(
find
(
EEG
.
reject
.
classtype
==
4
));
c5
=
length
(
find
(
EEG
.
reject
.
classtype
==
5
));
c6
=
length
(
find
(
EEG
.
reject
.
classtype
==
6
));
cpie
=
[
ca
c2
c3
c4
c5
c6
];
ica_chans
=
vertcat
(
ica_chans
,
cpie
);
%%%%%%%%%%%%%%%%%%%%%
% Scatter Plot Info %
%%%%%%%%%%%%%%%%%%%%%
%ic_sd1 time
%icaact_sd1_t = load([EEG.filepath '/' base_name '_icaact_sd1_t.mat']);
%fieldname = fieldnames(icaact_sd1_t);
%fieldname = fieldname{1};
%icaact_sd1_t = icaact_sd1_t.(fieldname);
%icaact_sd1_t_all(:,:,i) = icaact_sd1_t;
s
=
'[sd_t_meth]'
;
sd_t_meth
=
strtrim
(
batch_config
(
3
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
3
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
));
s
=
'[sd_t_vals]'
;
sd_t_vals
=
batch_config
(
3
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
3
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_o]'
;
sd_t_o
=
batch_config
(
3
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
3
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_p]'
;
sd_t_p
=
batch_config
(
3
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
3
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
%ic_sd2 time
if
~
exist
([
EEG
.
filepath
base_name
'_icaact_sd2_t.mat'
])
continue
end
%icaact_sd2_t = load([EEG.filepath '/' base_name '_icaact_sd2_t.mat']);
%fieldname = fieldnames(icaact_sd2_t);
%fieldname = fieldname{1};
%icaact_sd2_t = icaact_sd2_t.(fieldname);
%icaact_sd2_t_all(:,:,i) = icaact_sd2_t;
s
=
'[sd_t_meth]'
;
sd_t_meth
=
strtrim
(
batch_config
(
7
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
7
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
));
s
=
'[sd_t_vals]'
;
sd_t_vals
=
batch_config
(
7
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
7
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_o]'
;
sd_t_o
=
batch_config
(
7
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
7
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
s
=
'[sd_t_p]'
;
s_t_p
=
batch_config
(
7
)
.
replace_string
{
find
(
strncmp
(
batch_config
(
7
)
.
replace_string
,
s
,
length
(
s
)))}(
length
(
s
)
+
2
:
end
);
end
%% End of Calculating Statistics
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%% Beginning of Plots
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Mean and Sum Channel Breakdown
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%
% Pie Chart %
%%%%%%%%%%%%%
data_chan_m
=
mean
(
data_chans
);
figure
;
explode
=
[
1
0
0
0
];
labels
=
{
'Remaining Channels'
,
'ch-sd'
,
'low-r'
,
'bridge'
};
pie
(
data_chan_m
,
explode
,
labels
);
colormap
(
jet
);
title
(
'Data Channel Classification'
);
%%%%%%%%%%%%%
% Histogram %
%%%%%%%%%%%%%
figure
;
bar
(
data_chans
,
'stacked'
);
title
(
'Data Channel Classification'
);
legend
(
labels
);
set
(
gca
,
'XTick'
,[
1
:
length
(
sub_names
)]);
set
(
gca
,
'XTickLabel'
,
sub_names
);
rotatetl
(
gca
,
90
,
'b'
);
xlabel
(
'Subject #'
);
ylabel
(
'# of Channels'
);
x_pos
=
get
(
get
(
gca
,
'XLabel'
),
'Position'
);
set
(
get
(
gca
,
'XLabel'
),
'Position'
,
x_pos
+
[
0
-
3
0
]);
%%%%%%%%%%%%%%%%
% Scatter Plot %
%%%%%%%%%%%%%%%%
marks_array2flags
(
data_chans
,
...
'flag_dim'
,
'row'
,
...
'init_method'
,
sd_t_meth
,
...
'init_vals'
,
str2num
(
sd_t_vals
),
...
'init_crit'
,
str2num
(
sd_t_o
),
...
'flag_method'
,
'fixed'
,
...
'flag_val'
,
str2num
(
sd_t_p
),
...
'plot_figs'
,
'on'
,
...
'title_prefix'
,
'SD time - '
);
%% Mean and Sum Time Breakdown
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
mean_time
=
mean
(
data_time
);
%%%%%%%%%%%%%
% Pie Chart %
%%%%%%%%%%%%%
figure
;
explode
=
[
1
0
0
0
0
0
0
];
labels
=
{
'Remaining Time'
,
'out-task'
,
'mark-gap'
,
'ch-sd'
,
'low-r'
,
'ic-sd1'
,
'ic-sd2'
};
pie
(
mean_time
,
explode
,
labels
);
colormap
(
jet
);
title
(
'Mean Time Classification Breakdown across all Subjects'
);
%%%%%%%%%%%%%
% Histogram %
%%%%%%%%%%%%%
figure
;
bar
(
data_time
,
'stacked'
);
title
(
'Mean Time Classification Breakdown for each Subject'
);
legend
(
labels
);
set
(
gca
,
'XTick'
,[
1
:
length
(
sub_names
)]);
set
(
gca
,
'XTickLabel'
,
sub_names
);
rotatetl
(
gca
,
90
,
'b'
);
x_pos
=
get
(
get
(
gca
,
'XLabel'
),
'Position'
);
set
(
get
(
gca
,
'XLabel'
),
'Position'
,
x_pos
+
[
0
-
3
0
]);
xlabel
(
'Subject #'
);
ylabel
(
'# of Time Points'
);
y_lab
=
get
(
gca
,
'YTick'
);
set
(
gca
,
'YTickLabel'
,
num2str
(
y_lab
'
));
%%%%%%%%%%%%%%%%
% Scatter Plot %
%%%%%%%%%%%%%%%%
marks_array2flags
(
data_time
,
...
'flag_dim'
,
'col'
,
...
'init_method'
,
sd_t_meth
,
...
'init_vals'
,
str2num
(
sd_t_vals
),
...
'init_crit'
,
str2num
(
sd_t_o
),
...
'flag_method'
,
'fixed'
,
...
'flag_val'
,
str2num
(
sd_t_p
),
...
'plot_figs'
,
'on'
,
...
'title_prefix'
,
'SD time - '
);
%% Mean Component Breakdown
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ica_chan_m
=
mean
(
ica_chans
);
%%%%%%%%%%%%%
% Pie Chart %
%%%%%%%%%%%%%
figure
;
explode
=
[
0
1
0
0
0
0
];
labels
=
{
'blink'
,
'neural'
,
'heart'
,
'lateye'
,
'muscle'
,
'mixed'
};
pie
(
ica_chan_m
,
explode
,
labels
);
colormap
(
jet
);
title
(
'Component Classification Breakdown across all Subjects'
);
%%%%%%%%%%%%%
% Histogram %
%%%%%%%%%%%%%
figure
;
bar
(
ica_chans
,
'stacked'
);
title
(
'Component Classification Breakdown for each Subject'
);
legend
(
labels
);
set
(
gca
,
'XTick'
,[
1
:
length
(
sub_names
)]);
set
(
gca
,
'XTickLabel'
,
sub_names
);
rotatetl
(
gca
,
90
,
'b'
);
xlabel
(
'Subject #'
);
ylabel
(
'# of Components'
);
x_pos
=
get
(
get
(
gca
,
'XLabel'
),
'Position'
);
set
(
get
(
gca
,
'XLabel'
),
'Position'
,
x_pos
+
[
0
-
3
0
]);
%%%%%%%%%%%%%%%%
% Scatter Plot %
%%%%%%%%%%%%%%%%
marks_array2flags
(
ica_chans
,
...
'flag_dim'
,
'col'
,
...
'init_method'
,
sd_t_meth
,
...
'init_vals'
,
str2num
(
sd_t_vals
),
...
'init_crit'
,
str2num
(
sd_t_o
),
...
'flag_method'
,
'fixed'
,
...
'flag_val'
,
str2num
(
sd_t_p
),
...
'plot_figs'
,
'on'
,
...
'title_prefix'
,
'SD ICA 1 - '
);
%marks_array2flags(icaact_sd2_t_all, ...
% 'flag_dim','col', ...
% 'init_method',sd_t_meth, ...
% 'init_vals',str2num(sd_t_vals), ...
% 'init_crit',str2num(sd_t_o), ...
% 'flag_method','fixed', ...
% 'flag_val',str2num(sd_t_p), ...
% 'plot_figs','on', ...
% 'title_prefix','SD ICA 2 - ');
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment