THE AUDITORY MODELING TOOLBOX
Go to function
EXP_BARUMERLI2021 - - Experiments and results of Barumerli et al. (2021)
Program code:
function varargout = exp_barumerli2021(varargin)
%EXP_BARUMERLI2021 - Experiments and results of Barumerli et al. (2021)
% Usage: [] = exp_barumerli2021(flag)
%
% EXP_BARUMERLI2021(flag) reproduces figures and results of the study
% from Barumerli et al. (2021).
%
% The following flags can be specified
%
% 'tab2' Report data in Tab.2:
% The metrics LE, PE and QE computed for each fitted model
% are compared to the actual performances of five listeners in
% Majdak et al. (2010). Three different versions are tested
% each one with a different features space.
% The first considers with only binaural cues,
% the second combines binaural cues with spectral amplitudes
% and the third relies on binaural cues and spectral gradients.
%
% 'gain_test' Report results on prior contribution:
% This experiment prints the results of the analysis which
% employs the polar gain metric as in Ege et al. (2018) to
% quantify the contribution of the prior distribution.
%
% 'fig3' Reproduce Fig.3:
% Prediction examples. Example of the model inferring the sound
% direction. Particularly, the plot shows the prediction of
% the bayesian observer based on the posterior distribution.
% Finally, such estimate is corrupted by motor noise required
% by the listener to provide a response.
%
% 'fig4' Reproduce Fig.4:
% Example of the fitted model based on spectral gradients.
% The actual data for both lateral and polar dimensions
% are from subject NH16 from Majdak et al. (2010).
% Moreover, model predictions, black dots, are:
% (a) based only on the likelihood function (i.e. inference driven
% only by sensory evidence) as in Reijniers et al. (2014)
% (b) Bayesian inference with both prior belief and sensory evidence.
% (c) Full model (i.e. Bayesian inference and sensorimotor stage.
%
% 'fig5' Reproduce Fig.5:
% Comparison between fitted models and actual data for
% five listeners in Majdak et al (2010).
% Actual (gray) and predicted (black) are the sound-localization
% performance metrics obtained by models based on
% spectral amplitues or gradients.
% Each row reports a different metrics:
% the first is about the Lateral Error (LE) as function of the
% lateral angle, the second and the third show the
% Polar Error (PE) and Quadrant Error (QE), respectively as
% a function of the polar angle, calculated for all targets
% within the lateral interval [-30, 30]deg.
%
% 'exp_middlebrooks1999' Reproduce Fig.6:
% Predicted localization performance obtained for
% the individual (Own) and non-individual (Other) HRTFs
% with models based on two feature spaces.
% Additionally, predictions from Reijniers et al. (2014) and
% Baumgartner et al. (2014) as well as actual data from
% the original experiment Middlebrooks (1999) are shown.
%
% 'exp_macpherson2003' Reproduce Fig.7:
% Effect of the spectral ripples on sound localization
% performance by means of the polar error metric.
% Top and bottom left panels show differences to
% the reference condition in the right-most bottom panel
% which reports the polar errors obtained with
% broadband noise without spectral ripples.
% All panels show, in addition to predictions from our models,
% predictions from Reijniers et al (2014) and
% Baumgartner et al. (2014) as well as actual data
% from the original experiment Macpherson and Middlebrooks (2003).
%
% Further, cache flags (see amt_cache) and plot flags can be specified:
%
% 'plot' Plot the output of the experiment. This is the default.
%
% 'no_plot' Don't plot, only return data.
%
% 'test' Run one iteration for the experiment for testing code.
%
% 'redo' Recompute all results (it can take a while)
%
% 'redo_fast' Recumpute all results but with less iterations. Cached
% files are not changed.
%
% Requirements:
%
% 1) SOFA API v1 or higher from http://sourceforge.net/projects/sofacoustics for Matlab (in e.g. thirdparty/SOFA)
%
% 2) Data in hrtf/barumerli2021
%
% 3) Statistics Toolbox and Computer Vision Toolbox for Matlab
%
% Examples:
%
% To display Fig.3 use
%
% exp_barumerli2021('fig3');
%
% To display Fig.4 use
%
% exp_barumerli2021('fig4');
%
% To display Fig.5 use
%
% exp_barumerli2021('fig5');
%
% To display exp_middlebrooks1999 use
%
% exp_barumerli2021('exp_middlebrooks1999');
%
% To display exp_macpherson2003 use
%
% exp_barumerli2021('exp_macpherson2003');
%
% See also: demo_barumerli2021 barumerli2021 barumerli2021_featureextraction
% barumerli2021_metrics
%
% References:
% R. Baumgartner, P. Majdak, and B. Laback. Modeling sound-source
% localization in sagittal planes for human listeners. The Journal of the
% Acoustical Society of America, 136(2):791--802, 2014.
%
% P. Majdak, M. J. Goupell, and B. Laback. 3-D localization of virtual
% sound sources: Effects of visual environment, pointing method and
% training. Atten Percept Psycho, 72:454--469, 2010.
%
% J. Reijniers, D. Vanderleist, C. Jin, C. S., and H. Peremans. An
% ideal-observer model of human sound localization. Biological
% Cybernetics, 108:169--181, 2014.
%
% middlebrooks1999nonindividualized macpherson2003ripples
%
% Url: http://amtoolbox.org/amt-1.1.0/doc/experiments/exp_barumerli2021.php
% Copyright (C) 2009-2021 Piotr Majdak, Clara Hollomey, and the AMT team.
% This file is part of Auditory Modeling Toolbox (AMT) version 1.1.0
%
% 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 3 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. If not, see <http://www.gnu.org/licenses/>.
% AUTHOR: Roberto Barumerli
% Information Engineering Dept., University of Padova, Italy, 2021
%% ------ Check input options ---------------------------------------------
definput.import = {'amt_cache'};
definput.keyvals.MarkerSize = 6;
definput.keyvals.FontSize = 9;
definput.flags.type = {'missingflag', 'tab2', 'gain_test', 'fig3', 'fig4', 'fig5','exp_middlebrooks1999', 'exp_macpherson2003'};
definput.flags.plot = {'plot', 'no_plot'};
definput.flags.redo = {'no_redo_fast','redo_fast', 'redo'};
definput.flags.test = {'no_test','test'};
[flags,kv] = ltfatarghelper({},definput,varargin);
if flags.do_missingflag
flagnames=[sprintf('%s, ',definput.flags.type{2:end-2}),...
sprintf('%s or %s',definput.flags.type{end-1},...
definput.flags.type{end})];
error('%s: You must specify one of the following flags: %s.', ...
upper(mfilename),flagnames);
end
%% ------ tab2 - fitted models and predicted perfomances
if flags.do_tab2
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(data_majdak)
warning('sigma values not enough for the provided subejcts')
end
tab2 = amt_cache('get', 'barumerli2021_tab2',flags.cachemode);
% Preallocation
if isempty(tab2)
tab2 = repmat(struct('err', ...
struct([])),length(data_majdak), size(calibrations.combination, 1));
num_calib = size(calibrations.combination,1);
for s = 1:size(calibrations.sigma, 1) % subjects
amt_disp('\n %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \n SUBJECT %s\n', data_majdak(s).id)
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(calibrations.name{s}) '_hrtf_M_dtf 256.sofa']));
for c = 1:num_calib% feature space
amt_disp(sprintf('\nCOMBINATION %i', c))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
[template_par, target_par] = barumerli2021_featureextraction(sofa, ...
calibrations.combination{c,1}, ...
calibrations.combination{c,2}, ...
calibrations.combination{c,3});
sigma_l = calibrations.sigma(s,c).values(1);
sigma_l2 = calibrations.sigma(s,c).values(2);
sigma_p = calibrations.sigma(s,c).values(3);
sigma_m = calibrations.sigma(s,c).values(4);
sigma_prior = calibrations.sigma(s,c).values(5);
if calibrations.sigma(s,c).values(3) == 0
sigma_p = [];
end
m = barumerli2021('template', template_par, ...
'target', target_par, ...
'num_exp', 300, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p, ...
'sigma_motor', sigma_m,...
'MAP',...
'sigma_prior', sigma_prior);
tab2(s,c).err = barumerli2021_metrics(m,'middle_metrics');
end
end
amt_cache('set', 'barumerli2021_tab2',tab2);
end
% metrics
metric_calib = zeros(size(calibrations.combination, 1),3);
for s = 1:size(calibrations.sigma, 1)
amt_disp(sprintf('\nSUBJECT %i', s))
mtx = data_majdak(s).mtx;
real = barumerli2021_metrics(mtx,'middle_metrics');
real_metric(s,1) = real.rmsL;
real_metric(s,2) = real.rmsP;
real_metric(s,3) = real.querr;
for c = 1:size(calibrations.combination, 2)
% plot
amt_disp(sprintf('\t\t\tFEATURE SPACE'))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
le_tau = abs(tab2(s,c).err.rmsL - real.rmsL)/real.rmsL;
pe_tau = abs(tab2(s,c).err.rmsP - real.rmsP)/real.rmsP;
qe_tau_rau = abs(rau(tab2(s,c).err.querr, 1, 'PC') - rau(real.querr, 1, 'PC'))/rau(real.querr, 1, 'PC');
amt_disp(['le_tau ', num2str(le_tau),' pe_tau ', num2str(pe_tau),' querr_tau ', num2str(qe_tau_rau)]);
metric_calib(c,1) = metric_calib(c,1) + tab2(s,c).err.rmsL;
metric_calib(c,2) = metric_calib(c,2) + tab2(s,c).err.rmsP;
metric_calib(c,3) = metric_calib(c,3) + tab2(s,c).err.querr;
end
end
metric_calib = metric_calib./size(calibrations.sigma, 1);
% std stuff
for s = 1:size(calibrations.sigma, 1)
for c = 1:size(calibrations.combination, 2)
metric_calib_std(c,1,s) = tab2(s,c).err.rmsL;
metric_calib_std(c,2,s) = tab2(s,c).err.rmsP;
metric_calib_std(c,3,s) = tab2(s,c).err.querr;
end
end
amt_disp(sprintf('\n############\nAVERAGE OVER SUBJECTS'))
for c = 1:size(calibrations.combination, 1)
amt_disp(sprintf('\t\t\tFEATURE SPACE'))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
amt_disp(['le ', num2str(metric_calib(c,1)), ' pe ',...
num2str(metric_calib(c,2)), ' querr ', num2str(metric_calib(c,3))]);%.2f, pe %.2f, querr %.2f \n', metric_calib(c,1), metric_calib(c,2), metric_calib(c,3))
amt_disp(sprintf('le_std %.2f, pe_std %.2f, qe_std %.2f ',...
std(squeeze(metric_calib_std(c,1,:))), std(squeeze(metric_calib_std(c,2,:))), std(squeeze(metric_calib_std(c,3,:)))));
end
amt_disp(sprintf('\n############\nREAL SUBJECTS'))
amt_disp(sprintf('le %.2f, pe %.2f, qe %.2f ',...
mean(squeeze(real_metric(:,1))), mean(squeeze(real_metric(:,2))), mean(squeeze(real_metric(:,3)))));
amt_disp(sprintf('le_std %.2f, pe_std %.2f, qe_std %.2f ',...
std(squeeze(real_metric(:,1))), std(squeeze(real_metric(:,2))), std(squeeze(real_metric(:,3)))));
end
%% ------ gain metric to evaluate prior contribution
if flags.do_gain_test
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
% Preallocation
gain_test = amt_cache('get', 'barumerli2021_gain_test',flags.cachemode);
% Preallocation
if isempty(gain_test)
for s = 1:length(data_majdak)
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(data_majdak(s).id) '_hrtf_M_dtf 256.sofa']));
mtx = data_majdak(s).mtx;
[template, target] = barumerli2021_featureextraction(sofa, ...
'pge', ...
'targ_az', mtx(:, 1), ...
'targ_el', mtx(:, 2));
m_noprior = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 5, ...
'sigma_itd',calibrations.sigma(s,2).values(1), ...
'sigma_ild', calibrations.sigma(s,2).values(2), ...
'sigma_spectral', calibrations.sigma(s,2).values(3), ...
'sigma_prior', [],...
'sigma_motor', []);
m_prior = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 5, ...
'sigma_itd',calibrations.sigma(s,2).values(1), ...
'sigma_ild', calibrations.sigma(s,2).values(2), ...
'sigma_spectral', calibrations.sigma(s,2).values(3), ...
'sigma_prior', calibrations.sigma(s,2).values(5),...
'sigma_motor', []);
m_prior_motor = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 5, ...
'sigma_itd',calibrations.sigma(s,2).values(1), ...
'sigma_ild', calibrations.sigma(s,2).values(2), ...
'sigma_spectral', calibrations.sigma(s,2).values(3), ...
'sigma_prior', calibrations.sigma(s,2).values(5),...
'sigma_motor', calibrations.sigma(s,2).values(4));
results = {mtx, m_noprior, m_prior, m_prior_motor};
metrics = {'gainPfront'};
for m = 1:length(results)
for sp = 1:length(metrics)
gain_test(s, m, sp) = localizationerror(results{m}, metrics{sp});
end
end
end
amt_cache('set', 'barumerli2021_gain_test', gain_test);
end
gain_test = squeeze(gain_test(:,:,1));
res = mean(gain_test, 1);
fprintf("Gains frontal plane averaged over 5 subjects\n")
fprintf("Real:\t\t%.2f\n", res(1))
fprintf("Only Likelihood:%.2f\n", res(2))
fprintf("Full Model:\t%.2f\n", res(4))
end
%% ------ fig.3 from paper - model estimation
if flags.do_fig3
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
fig3 = amt_cache('get', 'barumerli2021_fig3',flags.cachemode);
if isempty(fig3)
s = 5;
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(data_majdak(s).id) '_hrtf_M_dtf 256.sofa']));
[template, target] = barumerli2021_featureextraction(sofa, ...
'pge', ...
'targ_az', 24.5, ...
'targ_el', 38.3); % defined in spherical coordinates
fig3.template = template;
fig3.target = target;
[fig3.m, fig3.doa, fig3.target_coords] = ...
barumerli2021('template', template, ...
'target', target, ...
'num_exp', 1, ...
'sigma_itd', calibrations.sigma(s,2).values(1), ...
'sigma_ild', calibrations.sigma(s,2).values(2), ...
'sigma_spectral', calibrations.sigma(s,2).values(3), ...
'sigma_prior', calibrations.sigma(s,2).values(5),...
'sigma_motor', calibrations.sigma(s,2).values(4));
amt_cache('set', 'barumerli2021_fig3', fig3);
end
%fig = figure('Units', 'points', 'Position', [100 100 245 300]);
temp_c = fig3.template.coords.return_positions('cartesian');
targ_c = fig3.target.coords.return_positions('cartesian');
% load full sphere
dirs = amt_load('barumerli2021','dirs.mat');
dirs = dirs.cache.value;
% pad posterior otherwise artifacts in the plot
posterior = [fig3.doa.posterior, zeros(1,500)];
[out, cbar] = plot_reijniers2014(dirs, max(log10(posterior), -10), 'FontSize', 10);
set(cbar, 'colormap', colormap(flipud(gray)))
set(cbar, 'Location', 'northoutside')
set(cbar, 'Position', [0.324159021406728 0.725 0.633027522935778 0.0288242913782321])
%% real direction
[az,el]=cart2sph(targ_c(1,1),targ_c(1,2),targ_c(1,3));
% lambert equal area projection
x_sign = 1;
if abs(az) > pi/2; az = az - pi; x_sign = -1; end
k = sqrt(2 ./ (eps + 1 + (cos(el) .* cos(az))));
x = x_sign * k * 1 .* cos(el) .* sin(az) ./ sqrt(2); % ./sqrt(2) normalizing
y = k * 1 .* sin(el) ./ sqrt(2);
q1 = plot(x+(1-x_sign),y,'+');
q1.MarkerSize = 10;
q1.LineWidth = 1.5;
q1.Color = 'red';
%% estimated direction by bayesian observer
[~, i] = max(posterior);
[az,el]=cart2sph(temp_c(i,1),temp_c(i,2),temp_c(i,3));
% lambert equal area projection with back position (see
% plot_reijniers2014)
x_sign = 1;
if abs(az) > pi/2; az = az - pi; x_sign = -1; end
k = sqrt(2 ./ (eps + 1 + (cos(el) .* cos(az))));
x = x_sign * k * 1 .* cos(el) .* sin(az) ./ sqrt(2); % ./sqrt(2) normalizing
y = k * 1 .* sin(el) ./ sqrt(2);
q2 = plot(x+(1-x_sign),y,'+');
q2.MarkerSize = 10;
q2.LineWidth = 1.5;
q2.Color = [0.3010 0.7450 0.9330];
%% final estimate corrupted by sensorymotor scatter
est = fig3.doa.estimations;
[az,el]=cart2sph(est(:,:,1),est(:,:,2),est(:,:,3));
% lambert equal area projection
x_sign = 1;
if abs(az) > pi/2; az = az - pi; x_sign = -1; end
k = sqrt(2 ./ (eps + 1 + (cos(el) .* cos(az))));
x = x_sign * k * 1 .* cos(el) .* sin(az) ./ sqrt(2); % ./sqrt(2) normalizing
y = k * 1 .* sin(el) ./ sqrt(2);
q3 = plot(x+(1-x_sign),y,'+');
q3.MarkerSize = 10;
q3.LineWidth = 1.5;
q3.Color = [0.6 1 0.3]; % [0 0.4470 0.7410];
l = legend(["$p(\varphi|t)$", repmat("", 1, 29), ...
"$\varphi$", "$\hat{\varphi}$", "$\hat{\varphi}_r$"], ...
'Interpreter', 'latex', ...
'Position',[0.0194430454104583 0.686916226697051 0.245697777083236 0.150550008511543]);
% saveas(fig, 'new_plots/single_trial.eps', 'epsc')
end
%% ------ fig.4 from paper - model stages
if flags.do_fig4
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(data_majdak)
warning('sigma values not enough for the provided subejcts')
end
fig4 = amt_cache('get', 'barumerli2021_fig4',flags.cachemode);
% Preallocation
if isempty(fig4)
s = 3; % select subject 3
calibrations = calibrations.sigma(s,2); % select pge
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(data_majdak(s).id) '_hrtf_M_dtf 256.sofa']));
mtx = data_majdak(s).mtx;
[template, target] = barumerli2021_featureextraction(sofa, ...
'pge', ...
'targ_az', mtx(:, 1), ...
'targ_el', mtx(:, 2));
m_noprior = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 1, ...
'sigma_itd',calibrations.values(1), ...
'sigma_ild', calibrations.values(2), ...
'sigma_spectral', calibrations.values(3), ...
'sigma_prior', [],...
'sigma_motor', []);
m_prior = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 1, ...
'sigma_itd',calibrations.values(1), ...
'sigma_ild', calibrations.values(2), ...
'sigma_spectral', calibrations.values(3), ...
'sigma_prior', calibrations.values(5),...
'sigma_motor', []);
m_prior_motor = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 1, ...
'sigma_itd',calibrations.values(1), ...
'sigma_ild', calibrations.values(2), ...
'sigma_spectral', calibrations.values(3), ...
'sigma_prior', calibrations.values(5),...
'sigma_motor', calibrations.values(4));
fig4 = {m_noprior, m_prior, m_prior_motor, mtx};
amt_cache('set', 'barumerli2021_fig4', fig4);
end
m_noprior = fig4{1,1};
m_prior = fig4{1,2};
m_prior_motor = fig4{1,3};
mtx = fig4{1,4};
% for m = 1:length(fig2)
% [f,r] = localizationerror(fig2{m},'sirpMacpherson2000');
% gains(m, 1) = (f.b(1))/2;
% gains(m, 2) = (f.b(2))/2;
% end
%% FIGURE
FontSize = 8;
Size = 10;
fig = figure('Units', 'points', 'Position', [1000 1000 245 400]);
[ha, ~] = tight_subplot(3, 2, [.07 0.1],[.06 .07],[.12 .03]);
%% SUBPLOTs
sp = 1;
axes(ha(sp));
scatter(mtx(:, 5), mtx(:, 7), Size, 0.6*[1 1 1], 'filled');
hold on
scatter(m_noprior(:, 5), m_noprior(:, 7), Size, 0.2*[1 1 1]);
grid on
sp = sp + 1;
axes(ha(sp));
scatter(mtx(:, 6), mtx(:, 8), Size, 0.6*[1 1 1], 'filled');
hold on
m_noprior(~((m_noprior(:, 6) > -30) & (m_noprior(:, 6) < 210)),:)=[];
scatter(m_noprior(:, 6), m_noprior(:, 8), Size, 0.2*[1 1 1]);
grid on
% y = gains(4,2)*linspace(-60,90);
% plot(linspace(-60,210), y)
% y2 = gains(1,2)*linspace(-60,90);
% plot(linspace(-60,210), y2)
%% PRIOR
sp = sp + 1;
axes(ha(sp));
scatter(mtx(:, 5), mtx(:, 7), Size, 0.6*[1 1 1], 'filled');
hold on
scatter(m_prior(:, 5), m_prior(:, 7), Size, 0.2*[1 1 1]);
grid on
sp = sp + 1;
axes(ha(sp));
scatter(mtx(:, 6), mtx(:, 8), Size, 0.6*[1 1 1], 'filled');
hold on
m_prior(~((m_prior(:, 6) > -30) & (m_prior(:, 6) < 210)),:)=[];
scatter(m_prior(:, 6), m_prior(:, 8), Size, 0.2*[1 1 1]);
grid on
% y = gains(4,2)*linspace(-60,210)+gains(4,1);
% plot(linspace(-60,210), y)
% y2 = gains(2,2)*linspace(-60,210)+gains(2,1);
% plot(linspace(-60,210), y2)
%% FULL MODEL
sp = sp + 1;
axes(ha(sp));
scatter(mtx(:, 5), mtx(:, 7), Size, 0.6*[1 1 1], 'filled');
hold on
scatter(m_prior_motor(:, 5), m_prior_motor(:, 7), Size, 0.2*[1 1 1]);
grid on
sp = sp + 1;
axes(ha(sp));
scatter(mtx(:, 6), mtx(:, 8), Size, 0.6*[1 1 1], 'filled');
hold on
m_prior_motor(~((m_prior_motor(:, 6) > -30) & (m_prior_motor(:, 6) < 210)),:)=[];
scatter(m_prior_motor(:, 6), m_prior_motor(:, 8), Size, 0.2*[1 1 1]);
grid on
% y = gains(4,2)*linspace(-60,210)+gains(4,1);
% plot(linspace(-60,210), y)
% y2 = gains(3,2)*linspace(-60,210)+gains(3,1);
% plot(linspace(-60,210), y2)
%% FRONTAL POSITION
for i=1:6
axes(ha(i));
plot(0,0,'r+')
end
%% LABELs and AXIS
for i=1:2:5
axis(ha(i), 'equal')
set(ha(i), 'YTick',[-90, 0, 90], 'XTick',[-90, 0, 90],...
'XLim', [-100, 100], 'YLim', [-100, 100])
end
for i=2:2:6
axis(ha(i), 'equal')
set(ha(i), 'YTick',[-90, 0, 90, 180, 270],...
'XTick',[-90, 0, 90, 180, 270], 'XLim', [-90, 270], 'YLim', [-90, 270])
xtickangle(ha(i),0)
end
set(ha([1:4]),'XTickLabel','')
ha(1).Title.String = "Lateral";
ha(2).Title.String = "Polar";
ha(1).TitleFontWeight = 'normal';
ha(2).TitleFontWeight = 'normal';
ha(5).XLabel.String = ' Actual Angle [deg]';
ha(6).XLabel.String = ' Actual Angle [deg]';
ha(1).YLabel.String = 'Estimated Angle [deg]';
ha(3).YLabel.String = 'Estimated Angle [deg]';
ha(5).YLabel.String = 'Estimated Angle [deg]';
titles = {'a) Sensory evidence only', ...
'b) Likelihood and prior ', ...
'c) Full model'};
yt = [0.95, 0.63, 0.31];
for i=1:3
annotation(fig,'textbox',...
[0 yt(i) 0.8 0.05],...
'String',titles(i),...
'LineStyle','none', 'FontWeight', 'normal', 'HorizontalAlignment', 'left');
end
legend({'Actual', 'Simulated'}, ...
'Orientation','vertical', ...
'Position',[0.652990351141813 0.62463162317031 0.305810393087726 0.0533707851774237]);
% saveas(fig, 'new_plots/model_stages.eps', 'epsc')
end
%% -------------- fig 5 paper - individual perforances
if flags.do_fig5
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(data_majdak)
warning('sigma values not enough for the provided subejcts')
end
fig5 = amt_cache('get', 'barumerli2021_fig5',flags.cachemode);
% Preallocation
if isempty(fig5)
for s = 1:length(data_majdak)
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021', ...
['ARI_' upper(data_majdak(s).id) '_hrtf_M_dtf 256.sofa']));
mtx = data_majdak(s).mtx;
fprintf("SUBJECT %s\n", data_majdak(s).id);
%% DTF
calibs_dtf = calibrations.sigma(s,1); % select dtf
calibs.sigma = calibs_dtf.values(1,1:3);
calibs.motor_sigma = calibs_dtf.values(1,4);
calibs.prior = calibs_dtf.values(1,5);
[template, target] = barumerli2021_featureextraction(sofa, ...
'dtf', ...
'targ_az', mtx(:, 1), ...
'targ_el', mtx(:, 2));
m_motor_dtf = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 300, ...
'sigma_itd', calibs.sigma(1), ...
'sigma_ild', calibs.sigma(2), ...
'sigma_spectral', calibs.sigma(3), ...
'sigma_prior', calibs.prior,...
'sigma_motor', calibs.motor_sigma);
%% PGE
calibs_pge = calibrations.sigma(s,2); % select dtf
calibs.sigma = calibs_pge.values(1,1:3);
calibs.motor_sigma = calibs_pge.values(1,4);
calibs.prior = calibs_pge.values(1,5);
[template, target] = barumerli2021_featureextraction(sofa, ...
'pge', ...
'targ_az', mtx(:, 1), ...
'targ_el', mtx(:, 2));
m_motor_pge = barumerli2021('template', template, ...
'target', target, ...
'num_exp', 300, ...
'sigma_itd', calibs.sigma(1), ...
'sigma_ild', calibs.sigma(2), ...
'sigma_spectral', calibs.sigma(3), ...
'MAP',...
'sigma_prior', calibs.prior,...
'sigma_motor', calibs.motor_sigma);
results(s,:) = {m_motor_dtf, m_motor_pge};
end
amt_cache('set', 'barumerli2021_fig5', results);
end
%% COMPUTE RMS
lat = [-90, -40, 0, 40, 90];
lat_label = [-65, -20, 20, 65];
pol = [-30 30 150 210];
pol_label = [0 90 180];
% check
rmsL_dtf = zeros(length(data_majdak), length(lat)-1);
rmsL_pge = zeros(length(data_majdak), length(lat)-1);
rmsL_real = zeros(length(data_majdak), length(lat)-1);
rmsP_dtf = zeros(1, length(pol)-1);
rmsP_pge = zeros(1, length(pol)-1);
rmsP_real = zeros(1, length(pol)-1);
querr_dtf= zeros(1, length(pol)-1);
querr_pge= zeros(1, length(pol)-1);
querr_real = zeros(1, length(pol)-1);
for s = 1:length(data_majdak)
results = fig5(s,:);
m_dtf = results{1};
m_pge = results{2};
mtx = data_majdak(s).mtx;
for i=1:length(lat)-1
% real
mtx_temp = mtx((mtx(:, 5) > lat(i) & (mtx(:, 5) < lat(i+1))),:);
rmsL_real(s,i) = localizationerror(mtx_temp, 'rmsL');
% simulation
m_temp = m_pge((m_pge(:, 5) > lat(i) & (m_pge(:, 5) < lat(i+1))),:);
rmsL_pge(s,i) = localizationerror(m_temp, 'rmsL');
m_temp = m_dtf((m_dtf(:, 5) > lat(i) & (m_dtf(:, 5) < lat(i+1))),:);
rmsL_dtf(s,i) = localizationerror(m_temp, 'rmsL');
end
mtx(abs(mtx(7,:)) <= 30,:)=[];
m_pge(abs(m_pge(7,:)) <= 30,:)=[];
m_dtf(abs(m_dtf(7,:)) <= 30,:)=[];
for i=1:length(pol)-1
m_temp = mtx((mtx(:, 6) > pol(i) & (mtx(:, 6) < pol(i+1))),:);
rmsP_real(s,i) = localizationerror(m_temp, 'rmsPmedianlocal');
querr_real(s,i) = localizationerror(m_temp, 'querrMiddlebrooks');
m_temp = m_pge((m_pge(:, 6) > pol(i) & (m_pge(:, 6) < pol(i+1))),:);
rmsP_pge(s,i) = localizationerror(m_temp, 'rmsPmedianlocal');
querr_pge(s,i) = localizationerror(m_temp, 'querrMiddlebrooks');
m_temp = m_dtf((m_dtf(:, 6) > pol(i) & (m_dtf(:, 6) < pol(i+1))),:);
rmsP_dtf(s,i) = localizationerror(m_temp, 'rmsPmedianlocal');
querr_dtf(s,i) = localizationerror(m_temp, 'querrMiddlebrooks');
end
end
%% FIGURE
FontSize = 9;
Size = 8.5;
% fig = figure('Units', 'Points', 'Position', [1e3 1e3 510 200]);
fig = figure('Units', 'Points', 'Position', [1e3 1e3 510 300]);
[ha, ~] = tight_subplot(3, length(data_majdak), [.1 0.01],[.15 0.08],[.07 .01]);
xangle = 0;
sp = 1;
for s = 1:length(data_majdak)
marker_dtf = 's';
marker_pge = 'v';
%% RMS
axes(ha(sp))
% ha(sp).Position(4) = ha(sp).Position(4);
ha(sp).Position(2) = 0.6675;
% ha(sp).Position(4) = ha(sp).Position(4)/1.612;
ax = gca;
Size = 36;
scatter(lat_label, rmsL_real(s,:), Size, 0.8*[1 1 1], 'filled')
hold on
scatter(lat_label, rmsL_dtf(s,:), Size, 0.2*[1 1 1], marker_dtf)
scatter(lat_label, rmsL_pge(s,:), Size, 0.2*[1 1 1], marker_pge)
%
set(gca, 'YLim', [0 20], 'Ytick', [0,10,20], 'Xtick', lat_label, 'Xlim', [-90, 90],'FontSize',FontSize)
title({upper(data_majdak(s).id)})
grid on
% polar
axes(ha(sp+length(data_majdak)))
% ha(sp+length(data_majdak)).Position(4) = ha(sp+length(data_majdak)).Position(4)*1.25;
ha(sp+length(data_majdak)).Position(4) = ha(sp+length(data_majdak)).Position(4);
ha(sp+length(data_majdak)).Position(2) = 0.42;
scatter(pol_label, rmsP_real(s,:), Size, 0.8*[1 1 1], 'filled')
hold on
scatter(pol_label, rmsP_dtf(s,:), Size, 0.2*[1 1 1], marker_dtf)
scatter(pol_label, rmsP_pge(s,:), Size, 0.2*[1 1 1], marker_pge)
set(gca, 'Xtick', pol_label, 'Xlim', [-90, 270], 'Ylim', [0 60], 'Ytick', [0 30 60],'FontSize',FontSize)
xtickangle(xangle)
grid on
axes(ha(sp+2*length(data_majdak)))
ha(sp+2*length(data_majdak)).Position(2) = 0.19;
scatter(pol_label, querr_real(s,:), Size, 0.8*[1 1 1], 'filled')
hold on
scatter(pol_label, querr_dtf(s,:), Size, 0.2*[1 1 1], marker_dtf)
scatter(pol_label, querr_pge(s,:), Size, 0.2*[1 1 1], marker_pge)
set(gca, 'Xtick', pol_label, 'Xlim', [-90, 270], 'Ylim', [-5 40], 'Ytick', [0, 20,40], 'FontSize',FontSize)
xtickangle(xangle)
grid on
sp = sp + 1;
end
set(ha([2:5, 7:10, 12:15]),'YTickLabel','')
set(ha([6:10]),'XTickLabel','')
for i=6:10
ha(i).Title.String = [];
end
ha(13).XLabel.String = ' Actual Angle [deg]';
ha(13).XLabel.FontSize = FontSize;
for i=1:5
ha(i).TitleFontWeight = 'normal';
end
ha(1).YLabel.String = 'LE [deg]';
ax.YLabel.FontSize = FontSize;
ha(6).YLabel.String = 'PE [deg]';
ax.YLabel.FontSize = FontSize;
ha(11).YLabel.String = 'QE [%]';
ax.YLabel.FontSize = FontSize;
legend({'data\_majdak2010', '$\overline{t}_{DTF}$', '$\overline{t}_{PGE}$'}, ...
'Orientation','horizontal', 'Interpreter', 'latex', ...
'Position', [0.330346204909391 0.92194871928753 0.412033794094542 0.0652307678919574])
% saveas(fig, 'new_plots/model_estimations_sectors.eps', 'epsc')
end
%% ------ tab2 - fitted model
if flags.do_tab2
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(data_majdak)
warning('sigma values not enough for the provided subejcts')
end
tab2 = amt_cache('get', 'barumerli2021_tab2',flags.cachemode);
% Preallocation
if isempty(tab2)
tab2 = repmat(struct('err', ...
struct([])),length(data_majdak), size(calibrations.combination, 1));
num_calib = size(calibrations.combination,1);
for s = 1:size(calibrations.sigma, 1) % subjects
amt_disp('\n %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \n SUBJECT %s\n', data_majdak(s).id)
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(calibrations.name{s}) '_hrtf_M_dtf 256.sofa']));
for c = 1:num_calib% feature space
amt_disp(sprintf('\nCOMBINATION %i', c))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
[template_par, target_par] = barumerli2021_featureextraction(sofa, ...
calibrations.combination{c,1}, ...
calibrations.combination{c,2}, ...
calibrations.combination{c,3});
sigma_l = calibrations.sigma(s,c).values(1);
sigma_l2 = calibrations.sigma(s,c).values(2);
sigma_p = calibrations.sigma(s,c).values(3);
sigma_m = calibrations.sigma(s,c).values(4);
sigma_prior = calibrations.sigma(s,c).values(5);
if calibrations.sigma(s,c).values(3) == 0
sigma_p = [];
end
m = barumerli2021('template', template_par, ...
'target', target_par, ...
'num_exp', 300, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p, ...
'sigma_motor', sigma_m,...
'MAP',...
'sigma_prior', sigma_prior);
tab2(s,c).err = barumerli2021_metrics(m,'middle_metrics');
end
end
amt_cache('set', 'barumerli2021_tab2',tab2);
end
% metrics
metric_calib = zeros(size(calibrations.combination, 1),3);
for s = 1:size(calibrations.sigma, 1)
amt_disp(sprintf('\nSUBJECT %i', s))
mtx = data_majdak(s).mtx;
real = barumerli2021_metrics(mtx,'middle_metrics');
real_metric(s,1) = real.rmsL;
real_metric(s,2) = real.rmsP;
real_metric(s,3) = real.querr;
for c = 1:size(calibrations.combination, 2)
% plot
amt_disp(sprintf('\t\t\tFEATURE SPACE'))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
le_tau = abs(tab2(s,c).err.rmsL - real.rmsL)/real.rmsL;
pe_tau = abs(tab2(s,c).err.rmsP - real.rmsP)/real.rmsP;
qe_tau_rau = abs(rau(tab2(s,c).err.querr, 1, 'PC') - rau(real.querr, 1, 'PC'))/rau(real.querr, 1, 'PC');
amt_disp(['le_tau ', num2str(le_tau),' pe_tau ', num2str(pe_tau),' querr_tau ', num2str(qe_tau_rau)]);
metric_calib(c,1) = metric_calib(c,1) + tab2(s,c).err.rmsL;
metric_calib(c,2) = metric_calib(c,2) + tab2(s,c).err.rmsP;
metric_calib(c,3) = metric_calib(c,3) + tab2(s,c).err.querr;
end
end
metric_calib = metric_calib./size(calibrations.sigma, 1);
% std stuff
for s = 1:size(calibrations.sigma, 1)
for c = 1:size(calibrations.combination, 2)
metric_calib_std(c,1,s) = tab2(s,c).err.rmsL;
metric_calib_std(c,2,s) = tab2(s,c).err.rmsP;
metric_calib_std(c,3,s) = tab2(s,c).err.querr;
end
end
amt_disp(sprintf('\n############\nAVERAGE OVER SUBJECTS'))
for c = 1:size(calibrations.combination, 1)
amt_disp(sprintf('\t\t\tFEATURE SPACE'))
amt_disp(sprintf('%s ', calibrations.combination{c,:}))
amt_disp(['le ', num2str(metric_calib(c,1)), ' pe ',...
num2str(metric_calib(c,2)), ' querr ', num2str(metric_calib(c,3))]);%.2f, pe %.2f, querr %.2f \n', metric_calib(c,1), metric_calib(c,2), metric_calib(c,3))
amt_disp(sprintf('le_std %.2f, pe_std %.2f, qe_std %.2f ',...
std(squeeze(metric_calib_std(c,1,:))), std(squeeze(metric_calib_std(c,2,:))), std(squeeze(metric_calib_std(c,3,:)))));
end
amt_disp(sprintf('\n############\nREAL SUBJECTS'))
amt_disp(sprintf('le %.2f, pe %.2f, qe %.2f ',...
mean(squeeze(real_metric(:,1))), mean(squeeze(real_metric(:,2))), mean(squeeze(real_metric(:,3)))));
amt_disp(sprintf('le_std %.2f, pe_std %.2f, qe_std %.2f ',...
std(squeeze(real_metric(:,1))), std(squeeze(real_metric(:,2))), std(squeeze(real_metric(:,3)))));
end
%% ------ middlebrooks -------------------------------------
if flags.do_exp_middlebrooks1999
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
exp_middlebrooks = [];
if ~flags.do_redo
exp_middlebrooks = amt_cache('get', ...
'exp_middlebrooks1999',flags.cachemode);
end
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(calibrations.name)
error('sigma values not enough for the provided subejcts')
end
% remove feature spaces without monaural cues
monaural_none_idx = find(strcmp(calibrations.combination, 'monaural_none'));
if monaural_none_idx > 0
calibrations.combination(monaural_none_idx) = [];
calibrations.sigma(:,monaural_none_idx) = [];
end
% setting
sbj_num = length(calibrations.name);
cal_num = size(calibrations.combination, 1);
num_exp = 50;
if flags.do_redo_fast
num_exp = 5;
exp_middlebrooks = [];
end
if flags.do_test
num_exp = 1;
cal_num = 1;
sbj_num = 1;
exp_middlebrooks = [];
end
if isempty(exp_middlebrooks)
% preprocess templates for each user
amt_disp('Processing subjects'' templates');
for s = 1:sbj_num
amt_disp(['Pre-processing subject #' num2str(s)]);
%sofa = SOFAload(['dtf_' lower(calibrations.name{s}) '.sofa']);
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',...
['ARI_' upper(calibrations.name{s}) '_hrtf_M_dtf 256.sofa']));
for c = 1:cal_num
[template(c,s), target(c,s)] = ...
barumerli2021_featureextraction(sofa, ...
calibrations.combination{c,1});
end
end
% preallocation for results
amt_disp('Allocating memory for results');
estimations = struct('m', []);
estimations = repmat(estimations, cal_num, ...
sbj_num, sbj_num); % all vs all
for c = 1:cal_num
amt_disp(sprintf('Combination #%i', c));
for s = 1:sbj_num
amt_disp(sprintf('\tSubject #%i', s));
assert(length(calibrations.sigma(s,c).values) == 5, ...
'something is wrong with the calibration file')
sigma_l = calibrations.sigma(s,c).values(1);
sigma_l2 = calibrations.sigma(s,c).values(2);
sigma_p = calibrations.sigma(s,c).values(3);
sigma_m = calibrations.sigma(s,c).values(4);
sigma_prior = calibrations.sigma(s,c).values(5);
for j = 1:sbj_num
amt_disp(num2str(j));
estimations(c, s, j).m = ...
barumerli2021('template', template(c, s),...
'target', target(c, j), ...
'num_exp', num_exp, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p,...
'sigma_motor', sigma_m, ...
'sigma_prior', sigma_prior);
end
end
end
% compute metrics
for c = 1:size(estimations, 1)
for i = 1:size(estimations, 2)
for j = 1:size(estimations, 3)
metrics(c, i, j) = barumerli2021_metrics(estimations(c, i, j).m, 'middle_metrics');
end
end
end
exp_middlebrooks = metrics;
if ~flags.do_redo_fast && ~flags.do_test
amt_cache('set','exp_middlebrooks1999',exp_middlebrooks);
end
end
metrics_all = exp_middlebrooks;
metrics_all(strcmp(calibrations.combination(:,1), 'monaural_none'), :, :) = [];
num_calib = size(metrics_all, 1);
quants = [0,0.05,0.25,0.5,0.75,0.95,1];
% iterate over calibrations
for c=1:num_calib
metrics = squeeze(metrics_all(c,:,:));
% aggregate metrics
ns = size(metrics,1);
own = logical(eye(ns));
other = not(own);
% code similar to baumgartner2014 - fig9
le_own(c,1).quantiles = quantile([metrics(own).rmsL], quants);
lb_own(c,1).quantiles = quantile([metrics(own).accL], quants);
qe_own(c,1).quantiles = quantile([metrics(own).querr], quants);
pe_own(c,1).quantiles = quantile([metrics(own).rmsP], quants);
pb_own(c,1).quantiles = quantile([metrics(own).accP], quants);
le_own(c,1).mean = mean([metrics(own).rmsL]);
lb_own(c,1).mean = mean([metrics(own).accL]);
qe_own(c,1).mean = mean([metrics(own).querr]);
pe_own(c,1).mean = mean([metrics(own).rmsP]);
pb_own(c,1).mean = mean([metrics(own).accP]);
le_other(c,1).quantiles = quantile([metrics(other).rmsL], quants);
lb_other(c,1).quantiles = quantile([metrics(other).accL], quants);
qe_other(c,1).quantiles = quantile([metrics(other).querr], quants);
pe_other(c,1).quantiles = quantile([metrics(other).rmsP], quants);
pb_other(c,1).quantiles = quantile([metrics(other).accP], quants);
le_other(c,1).mean = mean([metrics(other).rmsL]);
lb_other(c,1).mean = mean([metrics(other).accL]);
qe_other(c,1).mean = mean([metrics(other).querr]);
pe_other(c,1).mean = mean([metrics(other).rmsP]);
pb_other(c,1).mean = mean([metrics(other).accP]);
end
% load reference data
data_middle = data_middlebrooks1999;
% baumgartner data
data_baum_temp = exp_baumgartner2014('fig9', 'no_plot');
data_baum.qe_pool = data_baum_temp(1).qe;
data_baum.pe_pool = data_baum_temp(1).pe;
data_baum.pb_pool = data_baum_temp(1).pb;
ns = size(data_baum.pe_pool,1);
own = eye(ns) == 1;
other = not(own);
data_baum.pb_pool = abs(data_baum.pb_pool);
data_baum.qe_own.quantiles = quantile(data_baum.qe_pool(own),quants);
data_baum.pe_own.quantiles = quantile(data_baum.pe_pool(own),quants);
data_baum.pb_own.quantiles = quantile(data_baum.pb_pool(own),quants);
data_baum.qe_own.mean = mean(data_baum.qe_pool(own));
data_baum.pe_own.mean = mean(data_baum.pe_pool(own));
data_baum.pb_own.mean = mean(data_baum.pb_pool(own));
data_baum.qe_other.quantiles = quantile(data_baum.qe_pool(other),quants);
data_baum.pe_other.quantiles = quantile(data_baum.pe_pool(other),quants);
data_baum.pb_other.quantiles = quantile(data_baum.pb_pool(other),quants);
data_baum.qe_other.mean = mean(data_baum.qe_pool(other));
data_baum.pe_other.mean = mean(data_baum.pe_pool(other));
data_baum.pb_other.mean = mean(data_baum.pb_pool(other));
% reijniers
data_reij_temp = exp_reijniers2014('fig2_barumerli2020forum', 'no_plot');
ns = size(data_reij_temp,1);
own = logical(eye(ns));
other = not(own);
data_reij.le_own.quantiles = quantile([data_reij_temp(own).rmsL], quants);
data_reij.lb_own.quantiles = quantile([data_reij_temp(own).accL], quants);
data_reij.qe_own.quantiles = quantile([data_reij_temp(own).querr], quants);
data_reij.pe_own.quantiles = quantile([data_reij_temp(own).rmsP], quants);
data_reij.pb_own.quantiles = quantile([data_reij_temp(own).accP], quants);
data_reij.le_own.mean = mean([data_reij_temp(own).rmsL]);
data_reij.lb_own.mean = mean([data_reij_temp(own).accL]);
data_reij.qe_own.mean = mean([data_reij_temp(own).querr]);
data_reij.pe_own.mean = mean([data_reij_temp(own).rmsP]);
data_reij.pb_own.mean = mean([data_reij_temp(own).accP]);
data_reij.le_other.quantiles = quantile([data_reij_temp(other).rmsL], quants);
data_reij.lb_other.quantiles = quantile([data_reij_temp(other).accL], quants);
data_reij.qe_other.quantiles = quantile([data_reij_temp(other).querr], quants);
data_reij.pe_other.quantiles = quantile([data_reij_temp(other).rmsP], quants);
data_reij.pb_other.quantiles = quantile([data_reij_temp(other).accP], quants);
data_reij.le_other.mean = mean([data_reij_temp(other).rmsL]);
data_reij.lb_other.mean = mean([data_reij_temp(other).accL]);
data_reij.qe_other.mean = mean([data_reij_temp(other).querr]);
data_reij.pe_other.mean = mean([data_reij_temp(other).rmsP]);
data_reij.pb_other.mean = mean([data_reij_temp(other).accP]);
% plot
if flags.do_plot
% calib_plot_order = [3,1,2]; %[lat, dtf, pge]
calib_plot_order = [1,2]; %[dtf, pge]
% spacing
dx = 0.11;
% multiplier for horizontal shift
middle_off = 2;
cdist_init = -1;
reij_off = -3+1;
baum_off = -2+1;
Marker = 's-';
LineColor = [[0.9290, 0.6940, 0.1250]; ...
[0.4940, 0.1840, 0.5560]; ...
[0.4660, 0.6740, 0.1880]; ...
[0.3010, 0.7450, 0.9330]; ...
[0.6350, 0.0780, 0.1840]];
data_middle.Marker = 'ko-';
data_middle.LineColor = 'k';%[1 1 1]*0.3;
% data_majdak.Marker = 'b^-';
% data_majdak.LineColor = 'b';%[0 0 1]*0.3;
data_baum.Marker = 'd-';
data_baum.LineColor = [0.8500 0.3250 0.0980];
data_reij.Marker = 'v-';
data_reij.LineColor = [0 0.4470 0.7410];
mFig = figure;
mFig.Units = 'points';
mFig.Position = [0, 0, 510, 300];
tile_left = 0.02;%[left bottom width height]
tile_width = 0.32;
%% SUBPLOT 1
sp = 1;
subplot(1, 3, sp);
ax=gca;
ax.OuterPosition(1) = tile_left;
ax.OuterPosition(3) = tile_width;
ax.Position(3) = 0.26;
% reference
local_middlebroxplot(ax, 1-middle_off*dx,data_middle.le_own, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
local_middlebroxplot(ax, 2-middle_off*dx,data_middle.le_other, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
% baseline
% local_middlebroxplot(ax, 1-majdak_off*dx,data_majdak.le, data_majdak.Marker, kv.MarkerSize, data_majdak.LineColor, data_majdak.LineColor);
% simulation
cdist = cdist_init;
for c=calib_plot_order
local_middlebroxplot(ax, 1+cdist*dx,le_own(c,1), Marker, kv.MarkerSize, LineColor(c,:), 'w');
local_middlebroxplot(ax, 2+cdist*dx,le_other(c,1), Marker, kv.MarkerSize, LineColor(c,:), 'w');
cdist = cdist+1;
end
% reijniers2014
local_middlebroxplot(ax, 1-reij_off*dx,data_reij.le_own, data_reij.Marker, kv.MarkerSize, data_reij.LineColor, 'w');
local_middlebroxplot(ax, 2-reij_off*dx,data_reij.le_other, data_reij.Marker, kv.MarkerSize, data_reij.LineColor, 'w');
%
ylabel('LE [deg]','FontSize',kv.FontSize)
set(gca,'YLim',[0 45],'YTick', 0:10:40,'XLim',[0.5 2.5],...
'XTick',1:2,'XTickLabel',{'Own' 'Other'},'FontSize',kv.FontSize,...
'TickLength',2*get(gca,'TickLength'))
%% SUBPLOT 2
sp = sp +1;
subplot(1, 3, sp);
ax=gca;
ax.OuterPosition(1) = tile_left*2 + tile_width;
ax.OuterPosition(3) = tile_width;
ax.Position(3) = 0.26;
% reference
local_middlebroxplot(ax, 1-middle_off*dx, data_middle.pe_own, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
local_middlebroxplot(ax, 2-middle_off*dx, data_middle.pe_other, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
% baseline
% local_middlebroxplot(ax, 1-majdak_off*dx, data_majdak.pe, data_majdak.Marker, kv.MarkerSize, data_majdak.LineColor, data_majdak.LineColor);
% simulations
cdist = cdist_init;
for c=calib_plot_order
local_middlebroxplot(ax, 1+cdist*dx, pe_own(c,1), Marker, kv.MarkerSize, LineColor(c,:),'w');
local_middlebroxplot(ax, 2+cdist*dx, pe_other(c,1), Marker, kv.MarkerSize, LineColor(c,:),'w');
cdist = cdist + 1;
end
% reijniers2014
local_middlebroxplot(ax, 1-reij_off*dx, data_reij.pe_own,data_reij.Marker, kv.MarkerSize, data_reij.LineColor,'w');
local_middlebroxplot(ax, 2-reij_off*dx, data_reij.pe_other,data_reij.Marker, kv.MarkerSize, data_reij.LineColor,'w');
% baumgartner2014
local_middlebroxplot(ax, 1-baum_off*dx, data_baum.pe_own,data_baum.Marker, kv.MarkerSize, data_baum.LineColor,'w');
local_middlebroxplot(ax, 2-baum_off*dx, data_baum.pe_other,data_baum.Marker, kv.MarkerSize, data_baum.LineColor,'w');
ylabel('PE [deg]','FontSize',kv.FontSize)
set(gca,'YLim',[0 65],'YTick', 0:10:60,'XLim',[0.5 2.5],...
'XTick',1:2,'XTickLabel',{'Own' 'Other'},'FontSize',kv.FontSize,...
'TickLength',2*get(gca,'TickLength'))
%% SUBPLOT 3
sp = sp +1;
sp_ref = subplot(1, 3, sp);
ax=gca;
ax.OuterPosition(1) = tile_left*3 + tile_width*2;
ax.OuterPosition(3) = tile_width;
ax.Position(3) = 0.26;
% reference
middle = local_middlebroxplot(ax, 1-middle_off*dx,data_middle.qe_own, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
local_middlebroxplot(ax, 2-middle_off*dx,data_middle.qe_other, data_middle.Marker, kv.MarkerSize, data_middle.LineColor, data_middle.LineColor);
% baseline
% baseline = local_middlebroxplot(ax, 1-majdak_off*dx,data_majdak.qe, data_majdak.Marker, kv.MarkerSize, data_majdak.LineColor, data_majdak.LineColor);
% simulations
cdist = cdist_init;
for c=calib_plot_order
baru(1,c) = local_middlebroxplot(ax, 1+cdist*dx,qe_own(c,1), Marker, kv.MarkerSize, LineColor(c,:),'w');
local_middlebroxplot(ax, 2+cdist*dx,qe_other(c,1), Marker, kv.MarkerSize, LineColor(c,:),'w');
cdist = cdist + 1;
end
% reijniers2014
reij = local_middlebroxplot(ax, 1-reij_off*dx,data_reij.qe_own, data_reij.Marker,kv.MarkerSize, data_reij.LineColor,'w');
local_middlebroxplot(ax, 2-reij_off*dx,data_reij.qe_other, data_reij.Marker,kv.MarkerSize, data_reij.LineColor,'w');
% baumgartner2014
baum = local_middlebroxplot(ax, 1-baum_off*dx,data_baum.qe_own, data_baum.Marker,kv.MarkerSize, data_baum.LineColor,'w');
local_middlebroxplot(ax, 2-baum_off*dx,data_baum.qe_other, data_baum.Marker,kv.MarkerSize, data_baum.LineColor,'w');
ylabel('QE [%]','FontSize',kv.FontSize)
set(gca,'YLim',[-5 55],'YTick', 0:10:50,'XLim',[0.5 2.5],...
'XTick',1:2,'XTickLabel',{'Own' 'Other'},'FontSize',kv.FontSize,...
'TickLength',2*get(gca,'TickLength'))
for c=calib_plot_order
switch lower(calibrations.combination{c,1})
case 'dtf'
labels{1,c} = '$\overline{t}_{DTF}$';
case 'pge'
labels{1,c} = '$\overline{t}_{PGE}$';
end
end
leg = legend(sp_ref, [middle, baru(calib_plot_order), baum, reij], horzcat({'data\_middlebrooks1999'},labels, {'baumgartner2014'}, {'reijniers2014'}));
leg.FontSize = kv.FontSize - 2;
leg.Units = 'centimeters';
leg.Interpreter = 'latex';
leg.Units = 'normalized';
leg.Position = [0.0854369511609941 0.711535203689433 0.211155508622859 0.187531802247802];
end
end
%% ------ exp_macpherson -------------------------------------
if flags.do_exp_macpherson2003
exp_macpherson = [];
if ~flags.do_redo
exp_macpherson = amt_cache('get', ...
'exp_macpherson2003',flags.cachemode);
end
calibrations = amt_load('barumerli2021', 'barumerli2021_calibration.mat');
calibrations = calibrations.cache.value;
if size(calibrations.sigma, 1) ~= length(calibrations.name)
error('sigma values not enough for the provided subejcts')
end
% remove features spaces without monaural features
monaural_none_idx = find(strcmp(calibrations.combination, 'monaural_none'));
if monaural_none_idx > 0
calibrations.combination(monaural_none_idx) = [];
calibrations.sigma(:,monaural_none_idx) = [];
end
% Settings
num_exp = 50;
num_sbj = length(calibrations.name);
num_calib = size(calibrations.combination, 1);
if flags.do_redo_fast
exp_macpherson = [];
num_exp = 10;
end
if flags.do_test
exp_macpherson = [];
num_exp = 1;
num_calib = 1;
num_sbj = 1;
end
if isempty(exp_macpherson)
%sofa = SOFAload(['dtf_' lower(calibrations.name{1}) '.sofa']);
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',['ARI_' upper(calibrations.name{1}) '_hrtf_M_dtf 256.sofa']));
% generate stimulus
% copyed from exp_baumgartner2014/do_fig10
density = [0.25, 0.5, 0.75, 1, 1.5, 2, 3, 4, 6, 8]; % ripples/oct
depth = 10:10:40; % ripple depth (peak-to-trough) in dB
% 250-ms bursts, 20-ms raised-cosine fade in/out, flat from 0.6-16kHz
fs = sofa.Data.SamplingRate;
flow = 1e3; % lower corner frequency of ripple modification in Hz
fhigh = 16e3; % upper corner frequency of ripple modification in Hz
Nf = 2^10; % # Frequency bins
f = 0:fs/2/Nf:fs/2; % frequency bins
id600 = find(f<=600,1,'last'); % index of 600 Hz (lower corner frequency of stimulus energy)
idlow = find(f<=flow,1,'last'); % index of flow (ripples)
idhigh = find(f>=fhigh,1,'first'); % index of fhigh (ripples)
N600low = idlow - id600 +1; % # bins without ripple modification
Nlowhigh = idhigh - idlow +1; % # bins with ripple modification %
O = log2(f(idlow:idhigh)/1e3); % freq. trafo. to achieve equal ripple density in log. freq. scale
% Raised-cosine '(i.e., cos^2)' ramp 1/8 octave wide
fup = f(idlow)*2^(1/8); % upper corner frequency of ramp upwards
idup = find(f<=fup,1,'last');
Nup = idup-idlow+1;
rampup = cos(-pi/2:pi/2/(Nup-1):0).^2;
fdown = f(idhigh)*2^(-1/8); % lower corner frequency of ramp downwards
iddown = find(f>=fdown,1,'first');
Ndown = idhigh-iddown+1;
rampdown = cos(0:pi/2/(Ndown-1):pi/2).^2;
ramp = [rampup ones(1,Nlowhigh-Nup-Ndown) rampdown];
ramp = [-inf*ones(1,id600-1) zeros(1,N600low) ramp -inf*ones(1,Nf - idhigh)];
% Ripples of Experiment I
Sexp1 = zeros(Nf+1,length(density),2); % 3rd dim: 1:0-phase 2:pi-phase
Sexp1(idlow:idhigh,:,1) = (40/2* sin(2*pi*density'*O+ 0))'; % depth: 40dB, 0-phase
Sexp1(idlow:idhigh,:,2) = (40/2* sin(2*pi*density'*O+pi))'; % depth: 40dB, pi-phase
Sexp1 = repmat(ramp',[1,length(density),2]) .* Sexp1;
Sexp1 = [Sexp1;Sexp1(Nf:-1:2,:,:)];
Sexp1(isnan(Sexp1)) = -100;
sexp1 = ifftreal(10.^(Sexp1/20),2*Nf);
sexp1 = circshift(sexp1,Nf); % IR corresponding to ripple modification
sexp1 = squeeze(sexp1(:,:,1));
% Ripples of Experiment II
Sexp2 = zeros(Nf+1,length(depth),2); % 3rd dim: 1:0-phase 2:pi-phase
Sexp2(idlow:idhigh,:,1) = (depth(:)/2*sin(2*pi*1*O+ 0))'; % density: 1 ripple/oct, 0-phase
Sexp2(idlow:idhigh,:,2) = (depth(:)/2*sin(2*pi*1*O+pi))'; % density: 1 ripple/oct, pi-phase
Sexp2 = repmat(ramp',[1,length(depth),2]) .* Sexp2;
Sexp2 = [Sexp2;Sexp2(Nf-1:-1:2,:,:)];
Sexp2(isnan(Sexp2)) = -100;
sexp2 = ifftreal(10.^(Sexp2/20),2*Nf);
sexp2 = circshift(sexp2,Nf); % IR corresponding to ripple modification
sexp2 = squeeze(sexp2(:,:,1));
if flags.do_test
density(2:end) = []; % ripples/oct
depth(2:end) = [];
end
% preprocess templates for each user
for i = 1:num_sbj
amt_disp(['Processing subject ', num2str(i)]);
for c = 1:num_calib
amt_disp(['Pre-processing calibration #' num2str(c)]);
%sofa = SOFAload(['dtf_' lower(calibrations.name{i}) '.sofa']);
sofa = SOFAload(fullfile(SOFAdbPath,'barumerli2021',['ARI_' upper(calibrations.name{i}) '_hrtf_M_dtf 256.sofa']));
% extract directions
% filter targets' coordinates
% convert from spherical to horizontal-polar coordinates
horpolar_coords = barumerli2021_coordinates(sofa).return_positions('horizontal-polar');
% polar in [60, 120]
% lateral = 0
idx = find(((horpolar_coords(:, 2) >= -60 ...
& horpolar_coords(:, 2) <= 60) ...
| (horpolar_coords(:, 2) >= 120 & ...
horpolar_coords(:, 2) <= 240)) ...
& (horpolar_coords(:, 1) <= 30 & horpolar_coords(:, 1) >= -30));
amt_disp(['Pre-processing subject #' num2str(i)]);
[template(c, i), target_flat(c, i)] = ...
barumerli2021_featureextraction(sofa, ...
'targ_az', sofa.SourcePosition(idx, 1), ...
'targ_el', sofa.SourcePosition(idx, 2), ...
calibrations.combination{c,1});
amt_disp('Densities conditions');
for j = 1:length(density)
target_exp1(c, i, j) = ...
barumerli2021_featureextraction(sofa, 'target', 'source', ...
'source_ir', squeeze(sexp1(:, j)), 'source_fs', fs, ...
'targ_az', sofa.SourcePosition(idx, 1), ...
'targ_el', sofa.SourcePosition(idx, 2), ...
calibrations.combination{c,1});
end
amt_disp('Depth conditions');
for j = 1:length(depth)
target_exp2(c, i, j) = ...
barumerli2021_featureextraction(sofa, 'target', 'source', ...
'source_ir', squeeze(sexp2(:, j)), 'source_fs', fs, ...
'targ_az', sofa.SourcePosition(idx, 1), ...
'targ_el', sofa.SourcePosition(idx, 2), ...
calibrations.combination{c,1});
end
end
end
% preallocation for results
amt_disp('Allocating memory for results');
estimations = struct('m',[]);
est_expflat = repmat(estimations, num_calib, num_sbj);
est_exp1 = repmat(estimations, num_calib, ...
num_sbj,length(density));
est_exp2 = repmat(estimations, num_calib, ...
num_sbj,length(depth));
% data for prior computation
data_majdak = data_majdak2010('Learn_M');
data_majdak([1:5]) = [];
% simulations
for i = 1:num_sbj
for c = 1:num_calib
amt_disp(sprintf('\tCalibration #%i', c));
assert(length(calibrations.sigma(i,c).values) == 5, 'something is wrong with the calibration file')
sigma_l = calibrations.sigma(i,c).values(1);
sigma_l2 = calibrations.sigma(i,c).values(2);
sigma_p = calibrations.sigma(i,c).values(3);
sigma_m = calibrations.sigma(i,c).values(4);
sigma_prior = calibrations.sigma(i,c).values(5);
amt_disp(sprintf('\tSubject #%i', i));
% flat spectrum estimations
est_expflat(c, i, 1).m = barumerli2021('template', template(c, i), 'target', target_flat(c, i), ...
'num_exp', num_exp, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p,...
'sigma_motor', sigma_m, ...
'sigma_prior', sigma_prior);
% rippled estimations
for j = 1:length(density)
est_exp1(c, i, j).m = barumerli2021('template', template(c, i), ...
'target', target_exp1(c, i, j), ...
'num_exp', num_exp, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p,...
'sigma_motor', sigma_m, ...
'sigma_prior', sigma_prior);
end
for j =1:length(depth)
est_exp2(c, i, j).m = barumerli2021('template', template(c, i), ...
'target', target_exp2(c, i, j), ...
'num_exp', num_exp, ...
'sigma_itd', sigma_l, ...
'sigma_ild', sigma_l2, ...
'sigma_spectral', sigma_p,...
'sigma_motor', sigma_m, ...
'sigma_prior', sigma_prior);
end
end
end
% metrics
% allocate memory for results
% aggregate over different lateral angles
pe_exp1 = zeros(num_calib, num_sbj, length(density));
pe_exp2 = zeros(num_calib, num_sbj, length(depth));
pe_flat = zeros(num_calib, num_sbj, 1);
for c = 1:num_calib
for i = 1:num_sbj
% compute iterative regression (see Macpherson paper and localizationerror.m)
[f,r] = localizationerror(est_expflat(c,i).m, 'sirpMacpherson2000');
pe_flat(c,i) = localizationerror(est_expflat(c,i).m, f, r, 'perMacpherson2003');
for j = 1:length(density)
pe_exp1(c, i, j) = localizationerror(est_exp1(c, i, j).m, f, r, 'perMacpherson2003');
end
for j = 1:length(depth)
pe_exp2(c, i, j) = localizationerror(est_exp2(c ,i, j).m, f, r, 'perMacpherson2003');
end
end
end
% save cache
exp_macpherson.pe_flat = pe_flat;
exp_macpherson.pe_exp1 = pe_exp1;
exp_macpherson.pe_exp2 = pe_exp2;
if ~flags.do_redo_fast && ~flags.do_test
amt_cache('set','exp_macpherson2003', exp_macpherson);
end
end
% Original data:
data = data_macpherson2003;
% Reijniers2014's data
data_reij = exp_reijniers2014('fig4_barumerli2020forum', 'no_plot');
% Baumgartner2014's data
% varargout{1} = {pe_exp1,pe_exp2,pe_flat,noDCN};
data_baum_temp = exp_baumgartner2014('fig10', 'no_plot');
data_baum.pe_exp1 = data_baum_temp{1,1};
data_baum.pe_exp2 = data_baum_temp{1,2};
data_baum.pe_flat = data_baum_temp{1,3};
% Phase condition handling
% average across the phase condition
% real data
data.pe_exp1 = mean(data.pe_exp1,3);
data.pe_exp2 = mean(data.pe_exp2,3);
% baumgartner data
data_baum.pe_exp1 = mean(data_baum.pe_exp1,3);
data_baum.pe_exp2 = mean(data_baum.pe_exp2,3);
idphase = 1;
% Increase
% reijniers2014
data_reij.pe_exp1 = data_reij.pe_exp1 - repmat(data_reij.pe_flat(:), 1, size(data_reij.pe_exp1, 2));
data_reij.pe_exp2 = data_reij.pe_exp2 - repmat(data_reij.pe_flat(:), 1, size(data_reij.pe_exp2, 2));
% baumgartner data
data_baum.pe_exp1 = data_baum.pe_exp1 - repmat(data_baum.pe_flat(:),1,size(data_baum.pe_exp1,2));
data_baum.pe_exp2 = data_baum.pe_exp2 - repmat(data_baum.pe_flat(:),1,size(data_baum.pe_exp2,2));
% Statistics
% real data
data.quart_pe_flat = quantile(data.pe_flat,[.25 .50 .75]);
data.quart_pe_exp1 = quantile(data.pe_exp1,[.25 .50 .75]);
data.quart_pe_exp2 = quantile(data.pe_exp2,[.25 .50 .75]);
% reijniers data
data_reij.quart_pe_flat = quantile(data_reij.pe_flat,[.25 .50 .75]);
data_reij.quart_pe_exp1 = quantile(data_reij.pe_exp1,[.25 .50 .75]);
data_reij.quart_pe_exp2 = quantile(data_reij.pe_exp2,[.25 .50 .75]);
% baumgartner data
data_baum.quart_pe_flat = quantile(data_baum.pe_flat,[.25 .50 .75]);
data_baum.quart_pe_exp1 = quantile(data_baum.pe_exp1,[.25 .50 .75]);
data_baum.quart_pe_exp2 = quantile(data_baum.pe_exp2,[.25 .50 .75]);
for c = 1:num_calib
% simulations data
pe_flat = exp_macpherson.pe_flat(c,:);
pe_exp1 = squeeze(exp_macpherson.pe_exp1(c,:,:));
pe_exp2 = squeeze(exp_macpherson.pe_exp2(c,:,:));
% simulations
pe_exp1 = pe_exp1 - repmat(pe_flat(:), 1, size(pe_exp1, 2) );
pe_exp2 = pe_exp2 - repmat(pe_flat(:), 1, size(pe_exp2, 2) );
% simulations
quart_pe_flat(c,:) = quantile(pe_flat,[.25 .50 .75]);
quart_pe_exp1(c,:,:) = quantile(pe_exp1,[.25 .50 .75]);
quart_pe_exp2(c,:,:) = quantile(pe_exp2,[.25 .50 .75]);
end
% plot
if flags.do_plot
calib_plot_order = [1,2]; % lat, dtf, pge
dx = 1.05;
FontSize = kv.FontSize;
MarkerSize = kv.MarkerSize;
LineColor = [[0.9290, 0.6940, 0.1250]; ...
[0.4940, 0.1840, 0.5560]; ...
[0.4660, 0.6740, 0.1880]; ...
[0.3010, 0.7450, 0.9330]; ...
[0.6350, 0.0780, 0.1840]];
data.Marker = 'ko-';
data.LineColor = [1 1 1]*0;
data_reij.Marker = 'v-';
data_reij.LineColor = [0 0.4470 0.7410];
data_baum.Marker = 'd-';
data_baum.LineColor = [0.8500 0.3250 0.0980];
% Exp1
mFig = figure;
mFig.Units = 'points';
mFig.Position = [0 0 500 265];
% sgtitle(sprintf('%s ', calibrations.combination{c,:}), 'Interpreter', 'none')
subplot(2,8,1:8)
mach = errorbar(data.density,data.quart_pe_exp1(2,:,idphase),...
data.quart_pe_exp1(2,:,idphase) - data.quart_pe_exp1(1,:,idphase),...
data.quart_pe_exp1(3,:,idphase) - data.quart_pe_exp1(2,:,idphase),...
'o-','MarkerSize',MarkerSize, 'Color', data.LineColor, ...
'MarkerFaceColor', data.LineColor);
hold on
for c = calib_plot_order
baru(1,c) = errorbar(data.density/dx,squeeze(quart_pe_exp1(c, 2,:)),...
squeeze(quart_pe_exp1(c,2,:) - quart_pe_exp1(c,1,:)),...
squeeze(quart_pe_exp1(c,3,:) - quart_pe_exp1(c,2,:)),...
's-','MarkerSize',MarkerSize, 'Color', LineColor(c,:),'MarkerFaceColor','w');
end
hold on
reij = errorbar(data.density*dx,data_reij.quart_pe_exp1(2,:),...
data_reij.quart_pe_exp1(2,:) - data_reij.quart_pe_exp1(1,:),...
data_reij.quart_pe_exp1(3,:) - data_reij.quart_pe_exp1(2,:),...
'v--','MarkerSize',MarkerSize, 'Color', data_reij.LineColor,'MarkerFaceColor','w');
baum = errorbar(data.density*dx,data_baum.quart_pe_exp1(2,:,idphase),...
data_baum.quart_pe_exp1(2,:,idphase) - data_baum.quart_pe_exp1(1,:,idphase),...
data_baum.quart_pe_exp1(3,:,idphase) - data_baum.quart_pe_exp1(2,:,idphase),...
'd--','MarkerSize',MarkerSize, 'Color', data_baum.LineColor,'MarkerFaceColor','w');
set(gca,'XScale','log','YMinorTick','on')
set(gca,'XLim',[0.25/1.2 8*1.2],'XTick',data.density,'YLim',[-16 59],'FontSize',FontSize)
xlabel('Ripple Density [ripples/octave]','FontSize',FontSize)
ylabel({'Increase in';'Polar Error Rate [%]'},'FontSize',FontSize)
% Exp2
sp_ref = subplot(2,8,9:13);
errorbar(data.depth,data.quart_pe_exp2(2,:,idphase),...
data.quart_pe_exp2(2,:,idphase) - data.quart_pe_exp2(1,:,idphase),...
data.quart_pe_exp2(3,:,idphase) - data.quart_pe_exp2(2,:,idphase),...
'o-','MarkerSize',MarkerSize, 'Color', data.LineColor, ...
'MarkerFaceColor', data.LineColor);
hold on
for c = calib_plot_order
errorbar(data.depth-0.5,squeeze(quart_pe_exp2(c, 2,:)),...
squeeze(quart_pe_exp2(c,2,:) - quart_pe_exp2(c,1,:)),...
squeeze(quart_pe_exp2(c,3,:) - quart_pe_exp2(c,2,:)),...
's-','MarkerSize',MarkerSize, 'Color', LineColor(c,:),'MarkerFaceColor','w');
end
hold on
errorbar(data.depth+1,data_reij.quart_pe_exp2(2,:),...
data_reij.quart_pe_exp2(2,:) - data_reij.quart_pe_exp2(1,:),...
data_reij.quart_pe_exp2(3,:) - data_reij.quart_pe_exp2(2,:),...
'v--','MarkerSize',MarkerSize, 'Color', data_reij.LineColor,'MarkerFaceColor','w');
errorbar(data.depth+1,data_baum.quart_pe_exp2(2,:,idphase),...
data_baum.quart_pe_exp2(2,:,idphase) - data_baum.quart_pe_exp2(1,:,idphase),...
data_baum.quart_pe_exp2(3,:,idphase) - data_baum.quart_pe_exp2(2,:,idphase),...
'd--','MarkerSize',MarkerSize, 'Color', data_baum.LineColor,'MarkerFaceColor','w');
set(gca,'XLim',[data.depth(1)-5 data.depth(end)+5],'XTick',data.depth,...
'YLim',[-16 59],'YMinorTick','on','FontSize',FontSize)
xlabel('Ripple Depth [dB]','FontSize',FontSize)
ylabel({'Increase in';'Polar Error Rate [%]'},'FontSize',FontSize)
ytick = get(gca,'YTick');
ticklength = get(gca,'TickLength');
% Baseline
subplot(2,8,14:16)
errorbar(-1,data.quart_pe_flat(2),...
data.quart_pe_flat(2) - data.quart_pe_flat(1),...
data.quart_pe_flat(3) - data.quart_pe_flat(2),...
'o-','MarkerSize',MarkerSize, 'Color', data.LineColor, ...
'MarkerFaceColor', data.LineColor);
hold on
for c = calib_plot_order
errorbar(-0.6 + (c-1)*0.5,quart_pe_flat(c,2),...
quart_pe_flat(c,2) - quart_pe_flat(c,1),...
quart_pe_flat(c,3) - quart_pe_flat(c,2),...
's-','MarkerSize',MarkerSize, 'Color', LineColor(c,:),'MarkerFaceColor','w');
end
hold on
errorbar(1,data_reij.quart_pe_flat(2),...
data_reij.quart_pe_flat(2) - data_reij.quart_pe_flat(1),...
data_reij.quart_pe_flat(3) - data_reij.quart_pe_flat(2),...
'd--','MarkerSize',MarkerSize, 'Color', data_reij.LineColor,'MarkerFaceColor','w');
errorbar(1,data_baum.quart_pe_flat(2),...
data_baum.quart_pe_flat(2) - data_baum.quart_pe_flat(1),...
data_baum.quart_pe_flat(3) - data_baum.quart_pe_flat(2),...
'd--','MarkerSize',MarkerSize, 'Color', data_baum.LineColor,'MarkerFaceColor','w');
set(gca,'XLim',[-3 3],'XTick',0,'XTickLabel',{'Baseline'},...
'YLim',[-15 59],'YTick',ytick,'TickLength',3*ticklength,...
'FontSize',FontSize,'YAxisLocation','right')
xlabel(' ','FontSize',FontSize)
ylabel({'Polar Error Rate [%]'},'FontSize',FontSize)
%legend
for c = calib_plot_order
switch lower(calibrations.combination{c,1})
case 'dtf'
labels{1,c} = '$\overline{t}_{DTF}$';
case 'pge'
labels{1,c} = '$\overline{t}_{PGE}$';
end
end
leg = legend(sp_ref, [mach, baru(calib_plot_order), baum, reij], horzcat({'data\_macpherson2003'}, labels(calib_plot_order), {'baumgartner2014'}, {'reijniers2014'}));
leg.FontSize = FontSize - 2;
leg.Units = 'normalized';
leg.Interpreter = 'latex';
leg.Orientation = 'horizontal';
leg.Position = [0.147112074200069 0.944044062817491 0.739274312186318 0.0430594892744974];
% Overall correlation between actual and predicted median values
for c=calib_plot_order
m_pe_pred = [squeeze(quart_pe_exp1(c,2,:))' squeeze(quart_pe_exp2(c,2,:))'];
m_pe_actual = [data.quart_pe_exp1(2,:) data.quart_pe_exp2(2,:)];
r = corrcoef(m_pe_pred,m_pe_actual);
r_sqr = r(2);
amt_disp('Correlation between actual and predicted median values (15 conditions):')
amt_disp(sprintf('%s: r = %0.2f', labels{1,c}, r_sqr))
end
end
end
function hg = local_middlebroxplot(ax, x, data, Marker, MarkerSize, LineColor, FaceColor)
lilen = 0.05; % length of horizontal lines
hb=[];
% Symbols
i=1; hb(i) = plot(ax, x, data.quantiles(1),'x','MarkerSize',MarkerSize, 'MarkerEdgeColor', LineColor, 'MarkerFaceColor', LineColor); % min
hold on
i=i+1; hb(i) = plot(ax, x,data.quantiles(7),'x','MarkerSize',MarkerSize, 'MarkerEdgeColor', LineColor, 'MarkerFaceColor', LineColor); % max
% Horizontal lines
i=i+1; hb(i:(i+1)) = line(ax, x+0.5*[-lilen,lilen],repmat(data.quantiles(2),2),'Color',LineColor); % lower whisker
i=i+2; hb(i:(i+1)) = line(ax, x+[-lilen,lilen],repmat(data.quantiles(3),2),'Color',LineColor); % 25% Quartile
i=i+2; hb(i:(i+1)) = line(ax, x+[-lilen,lilen],repmat(data.quantiles(4),2),'Color',LineColor); % Median
i=i+2; hb(i:(i+1)) = line(ax, x+[-lilen,lilen],repmat(data.quantiles(5),2),'Color',LineColor); % 75% Quartile
i=i+2; hb(i:(i+1)) = line(ax, x+0.5*[-lilen,lilen],repmat(data.quantiles(6),2),'Color',LineColor); % upper whisker
% Vertical lines
i=i+2; hb(i:(i+1)) = line(ax, [x,x],data.quantiles(2:3),'Color',LineColor); % connector lower whisker
i=i+2; hb(i:(i+1)) = line(ax, [x,x],data.quantiles(5:6),'Color',LineColor); % connector upper whisker
i=i+2; hb(i:(i+1)) = line(ax, [x,x]-lilen,data.quantiles([3,5]),'Color',LineColor); % left box edge
i=i+2; hb(i:(i+1)) = line(ax, [x,x]+lilen,data.quantiles([3,5]),'Color',LineColor); % left box edge
% middle value
i=i+1; hb(i) = plot(x,data.mean, Marker,'MarkerSize', MarkerSize, 'MarkerFaceColor', FaceColor, 'MarkerEdgeColor',LineColor);
% create a group to avoid issues with the legend
% https://stackoverflow.com/questions/12894652/matlab-how-to-make-a-custom-legend
hg = hggroup;
set(hb,'Parent',hg);
set(get(get(hg,'Annotation'),'LegendInformation'),...
'IconDisplayStyle','off');
function rau=rau(X,N,opt)
% RAU rationalized arcsine transform
% RAU(X,N) transforms the number of correct responses X to the
% rationalized arcsine (rau). N gives the number of repetitions.
%
% This function allows to use ANOVA statistics with percent correct scores
% because: 1) RAUs are normally distributed; 2) mean and variance of RAUs
% are not correlated with eachother; and 3) likelihood that a score will
% increase/decrease will remain constant over the range.
%
% RAU=RAU(X,N,opt) defines one of the following options:
% 'Pc' ... X is given in percent correct scores (0..100%)
% 'X' ... X is given in the number of correct responses (default)
%
% The formula are based on Sherbecoe and Studebaker,
% Int. J. of Audiology 2004; 43; 442-448
%
% See also IRAU.
% 30.8.2007, Piotr Majdak
%
if exist('opt','var')
if strcmp(upper(opt),'PC')
X=X/100*N;
elseif strcmp(upper(opt),'X')
else
error('OPT must be Pc (=percent correct) or X (=number of correct responses)');
end
end
th=asin(sqrt(X/(N+1)))+asin(sqrt((X+1)/(N+1)));
rau=146/pi*(th)-23;
function [ha, pos] = tight_subplot(Nh, Nw, gap, marg_h, marg_w)
% tight_subplot creates "subplot" axes with adjustable gaps and margins
%
% [ha, pos] = tight_subplot(Nh, Nw, gap, marg_h, marg_w)
%
% in: Nh number of axes in hight (vertical direction)
% Nw number of axes in width (horizontaldirection)
% gap gaps between the axes in normalized units (0...1)
% or [gap_h gap_w] for different gaps in height and width
% marg_h margins in height in normalized units (0...1)
% or [lower upper] for different lower and upper margins
% marg_w margins in width in normalized units (0...1)
% or [left right] for different left and right margins
%
% out: ha array of handles of the axes objects
% starting from upper left corner, going row-wise as in
% subplot
% pos positions of the axes objects
%
% Example: ha = tight_subplot(3,2,[.01 .03],[.1 .01],[.01 .01])
% for ii = 1:6; axes(ha(ii)); plot(randn(10,ii)); end
% set(ha(1:4),'XTickLabel',''); set(ha,'YTickLabel','')
% Pekka Kumpulainen 21.5.2012 @tut.fi
% Tampere University of Technology / Automation Science and Engineering
% Pekka Kumpulainen (2021). tight_subplot(Nh, Nw, gap, marg_h, marg_w)
% (https://www.mathworks.com/matlabcentral/fileexchange/27991-tight_subplot-nh-nw-gap-marg_h-marg_w),
% MATLAB Central File Exchange. Retrieved June 18, 2021.
% This function is covered by Copyright (c) 2016, Pekka Kumpulainen
% All rights reserved.
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% * Redistributions of source code must retain the above copyright notice, this
% list of conditions and the following disclaimer.
if nargin<3; gap = .02; end
if nargin<4 || isempty(marg_h); marg_h = .05; end
if nargin<5; marg_w = .05; end
if numel(gap)==1;
gap = [gap gap];
end
if numel(marg_w)==1;
marg_w = [marg_w marg_w];
end
if numel(marg_h)==1;
marg_h = [marg_h marg_h];
end
axh = (1-sum(marg_h)-(Nh-1)*gap(1))/Nh;
axw = (1-sum(marg_w)-(Nw-1)*gap(2))/Nw;
py = 1-marg_h(2)-axh;
% ha = zeros(Nh*Nw,1);
ii = 0;
for ih = 1:Nh
px = marg_w(1);
for ix = 1:Nw
ii = ii+1;
ha(ii) = axes('Units','normalized', ...
'Position',[px py axw axh], ...
'XTickLabel','', ...
'YTickLabel','');
px = px+axw+gap(2);
end
py = py-axh-gap(1);
end
if nargout > 1
pos = get(ha,'Position');
end
ha = ha(:);
Build with Bootstrap