function [acrossSubdSRTs,std_acrossSubSRTs] = data_joergensen2011(varargin)
%DATA_JOERGENSEN2011 Experimental data from Joergensen and Dau (2011)
% Usage: [acrossSubdSRTs,std_acrossSubSRTs] = data_joergensen2011(flag)
%
% DATA_JOERGENSEN2011 returns measured change of SRT tested by Joergensen
% and Dau (2011). Average and standard deviation across listeners.
%
% The flag may be one of:
%
% 'fig5' : The measured change in SRT (open squares), averaged across 6
% normal-hearing listeners, as a function of the reverberation
% time, T30 (0s, 0.4s, 0.7s, 1.3s, or 2.3s).
% The mean SRT in the reference condition was -3 dB.
% Model predictions are indicated by the filled squares. The
% linear correlation coefficient (q) and RMSE is indicated in
% the upper left corner.
% 'fig6' : DSRT (left ordinate) as a function of the over-subtraction
% factor a (0, 0.5, 1, 2, 4, or 8)
% for 4 normal-hearing listeners (open squares) and
% sEPSM predictions (filled squares). The right ordinate (with
% a reversed scale) shows the corresponding sSTI values as filled
% gray circles. These values are, however, not converted to DSRT
% values since these would be outside the left ordinate scale.
%
% References:
% S. Joergensen and T. Dau. Predicting speech intelligibility based on
% the signal-to-noise envelope power ratio after modulation-frequency
% selective processing. The Journal of the Acoustical Society of America,
% 130(3):1475--1487, 2011.
%
%
% Url: http://amtoolbox.org/amt-1.6.0/doc/data/data_joergensen2011.php
% #Author: Robert Baumgartner (2016)
% This file is licensed unter the GNU General Public License (GPL) either
% version 3 of the license, or any later version as published by the Free Software
% Foundation. Details of the GPLv3 can be found in the AMT directory "licences" and
% at <https://www.gnu.org/licenses/gpl-3.0.html>.
% You can redistribute this file and/or modify it under the terms of the GPLv3.
% This file is distributed without any warranty; without even the implied warranty
% of merchantability or fitness for a particular purpose.
% TODO: explain Data in description;
% Define input flags
definput.flags.type = {'fig5','fig6'};
[flags,kv] = ltfatarghelper({}, definput,varargin);
if flags.do_fig5
% The following data was retrieved from FIG. 5
acrossSubdSRTs = [0.0100 3.6300 4.6700 6.8700 8.2900];
std_acrossSubSRTs = [0.8500 0.4800 0.4800 1.1600 1.9700];
end
if flags.do_fig6
acrossSubdSRTs = [0, 1.3750, 1.3750, 1.6250, 1.8750, 2.7083];
std_acrossSubSRTs = [0.4513, 0.7500, 0.2500, 0.4590, 0.3436, 0.5159];
end