fast_fmri_transcribe_responses.m

function fast_fmri_transcribe_responses(varargin)

% This function can be used to transcribe the FAST fmri word generation responses.
%
% :Usage:
% :: 
%       fast_fmri_transcribe_responses(varargin)
%
%
% :Optional Inputs: Enter keyword followed by variable with values
%
%   **'savedir':**
%           default is /data of the current directory
%
%   **'response_n':**
%           If you want to transcribe some specific numbers, you can use
%           this option. 
% 
%   **'nosound':**
%           You can use this option while running the word generation task 
%           in the scanner (fast_fmri_word_generation.m).
%
%   **'only_na':**
%           This will play the sound for the responses you couldn't hear at
%           the first try ('na').
%
% :Example:
%    fast_fmri_transcribe_responses('nosound') % while running fast_fmri_word_generation in the scanner
%
%    fast_fmri_transcribe_responses('only_na') % after running fast_fmri_word_generation
%
%    fast_fmri_transcribe_responses('response_n', [2 6 38]) % playing sound only a few specific trials
%
%    fast_fmri_transcribe_responses('response_n', [2 6 38], 'nosound') % playing sound only a few specific trials
%
%    fast_fmri_transcribe_responses % after running fast_fmri_word_generation
%
% ..
%    Copyright (C) 2017 COCOAN lab
% ..
%
%    If you have any questions, please email to: 
%
%          Byeol Kim (roadndream@naver.com) or
%          Wani Woo (waniwoo@skku.edu)
%

%% PARSING OUT OPTIONAL INPUT
savedir = fullfile(pwd, 'data');
do_playsound = true;

for i = 1:length(varargin)
    if ischar(varargin{i})
        switch varargin{i}
            % functional commands
            case {'savedir'}
                savedir = varargin{i+1};
                varargin{i} = [];
                varargin{i+1} = [];
            case {'nosound'}
                do_playsound = false;
                varargin{i} = [];
        end
    end
end

%% LOAD DATA and Subject INFO check
SID = input('Subject ID (number)? ', 's');
SessID = input('Session number? ', 's');

dat_file = fullfile(savedir, ['a_worddata_sub' SID '_sess' SessID '.mat']);
save_file = fullfile(savedir, ['b_responsedata_sub' SID '_sess' SessID '.mat']);

load(dat_file); 
load(save_file);

%% Response_N
% response_n = 1:numel(wgdata.audiodata); % wgdata.audiodata = 1x40
response_n = [1:40];
for i = 1:length(varargin)
    if ischar(varargin{i})
        switch varargin{i}
            % functional commands
            case {'nosound'}
                response_n = [1:40];
            case {'response_n'}
                response_n = varargin{i+1};
                if size(response_n,1) > size(response_n,2), response_n = response_n'; end
            case {'only_na'}
                response_n = (find(strcmp(response, 'na'))')-1;  % If the two strings are same, the result is 1. If not, 0.
        end
    end
end

%% PLAY RESPONSES

for response_i = response_n   % in case of no-sound, 1:40

    str{1} = '==================================================';
    str{2} = sprintf('    %2dth response word   ', response_i);
    str{3} = '==================================================';
    
    clc;  % clear the screen...
    
    for i = 1:numel(str), disp(str{i}); end
    
    input_key = '';
    while isempty(deblank(input_key))
        disp(['''' response{response_i} '''의 다음 단어는 무엇인가요? ']);
        if do_playsound
            players = audioplayer(wgdata.audiodata{response_i}', 44100);
            play(players);
            input_key = input('단어를 적고 엔터키를 눌러주세요. 다시 듣고 싶으시면 엔터키를 눌러주세요:  ', 's');
        else
            input_key = input('단어를 적고 엔터키를 눌러주세요. 못들었으면 ''na''를 적은 후 엔터키를 눌러주세요:  ', 's');
        end
    end
    
    response{response_i+1} = input_key;
    
    save(save_file, 'response'); % save the data 
end

end