figure6.m

function[]=figure6(varargin)
% FIGURE6 Make figure 6 from the manuscrip written by Luo, Bondy, et al.
%
% The figure shows that while tethered for Neuropixel recording without a
% cable commutator, rats perform a cognitively demanding task at a level
% similar to when they are untethered
%
%=OPTIONAL INPUT
%
%   from_scratch
%       logical scalar indicating whether the data will be fetched from the
%       Brody Lab SQL repository.
P_input = inputParser;
addParameter(P_input, 'from_scratch', false, @(x) isscalar(x) && islogical(x))
parse(P_input, varargin{:});
P_input = P_input.Results;
add_folders_to_path
if P_input.from_scratch
    make_recording_sessions_table % a table indicating the dates of recording sessions
    make_behavior_table % a table indicating dates of recording and also training sessions
    analyze_performance_by_rat
end
P = get_parameters;
figure('Pos', [100, 50, 900, 1200])
k = 0;
n_col = 3;
n_row = 2;
ax_hdl = [];

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_behavioral_comparison('trials_done', 'axes', gca, 'samp_size_pos', [0.1, 0.9]);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_behavioral_comparison('prct_correct', 'axes', gca);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_average_psychometrics('axes', gca);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);
label_hdl(k).Position(1)=label_hdl(k-2).Position(1);

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_behavioral_comparison('sens', 'axes', gca);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);
label_hdl(k-1).Position(2)=label_hdl(k).Position(2);

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_behavioral_comparison('abs_bias', 'axes', gca);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);

k=k+1;
ax_hdl(k) = subplot(n_col, n_row,k);
plot_behavioral_comparison('lapse', 'axes', gca);
label_hdl(k)=label_panel(gca, P.panel_labels(k+1), 'FontSize', P.panel_label_font_size);

for i = 1:numel(P.figure_image_format)
    saveas(gcf, [P.plots_folder_path filesep 'figure6'], P.figure_image_format{i})
end