RunGARPSubjectScript.m

%This is a play ground for building the strcures for saving stuff
cd ('GARP') % Sets the current directory to GARP
%% Settings
%Load all of the task lists
load('scaledChoiceTasks.mat'); % Each row has two vlaues, the first number is for the amount of item1 on left, the second number is the amount of item1 on right  
load('limitGARPTasks.mat'); % Each row has two vlaues, the first number is for the amount of item1, the second number is the amount of item2
load('juanset.mat'); % This is a 3D araay each (1:2,1:2,x) contains one set of numbers to use for a single GARP presentation

scaledChoiceTasks = scaledChoiceTasks; % Each row has two vlaues, the first number is for the amount of item1 on left, the second number is the amount of item1 on right  
limitGARPTasks = limitGARPTasks; % Each row has two vlaues, the first number is for the amount of item1, the second number is the amount of item2
twoItemGARPTasks = juanset; % This is a 3D araay each (1:2,1:2,x) contains one set of numbers to use for a single GARP presentation
subjID = 2;

%**Design the task orders**
trialOrder = repeatedhistory(4,5,2,1,false); % This sets the order of the tasks
long = length(trialOrder); %The total number of trials that will be performed
short = long/4;            %The number of each type of trial that will be performed
oneItemOrder = repeatedhistory(2,5,4,1,false); % This sets the order of the task types. This one isn't done like the others because there is only two types of trial (so they are couterbalenced). If they weren't counter ballences they would be very little variability in the order of the presentations.

scaledChoiceOrder = []; % The fixxed order that the scaled trials will be presented in. If there are more tials that need to be shown then we have, then a second list (random order) is made and concatinated on to the end of the old one.
i = 1;
while ceil(short/(length(scaledChoiceTasks))) >= i;
    scaledChoiceOrder = cat(1,scaledChoiceOrder,randperm(length(scaledChoiceTasks)));
    i = i + 1;
end


limitGARPOrder = []; % The fixxed order that the GARP limit trials will be presented in
i = 1;
while ceil(short/(length(limitGARPTasks))) >= i;
    limitGARPOrder = cat(1,limitGARPOrder,randperm(length(limitGARPOrder)));
    i = i + 1;
end



twoItemGARPOrder = []; %The fixxed order that the 2item GARP trials will be presented in 
i = 1;
while ceil(short/(length(twoItemGARPTasks))) >= i;
    twoItemGARPOrder = cat(1,twoItemGARPOrder,randperm(length(twoItemGARPOrder)));
    i = i + 1;
end

% Picking the items
item1 = imread('juice.jpg');
item2 = imread('chips.jpg');

% Saving the settings settings

settings.recordfolder = 'records';
settings.subjID = subjID;
settings.trialOrder = trialOrder;

settings.oneItemOrder = oneItemOrder;
settings.scaledChoiceTasks = scaledChoiceTasks;
settings.scaledChoiceOrder = scaledChoiceOrder;
settings.limitGARPTasks = limitGARPTasks;
settings.limitGARPOrder = limitGARPOrder;
settings.twoItemGARPTasks =twoItemGARPTasks;
settings.twoItemGARPOrder = twoItemGARPOrder;

settings.item1 = item1;
settings.item2 = item2;


% if the records folder doesn't exist, create it. 
mkdir(settings.recordfolder);
% creat the file name for this run of this subject
recordname = [settings.recordfolder '/' num2str(subjID) '_' datestr(now,'yyyymmddTHHMMSS') '.mat'];
% Save the settings (the results are saved later)
save (recordname, 'settings')
% Restrict the keys that can be used for the Kb commands
if (ismac)
            RestrictKeysForKbCheck([f, j, ESCAPE])
            escKey = KbName('ESCAPE');
        else
            RestrictKeysForKbCheck([f, j, Esc])
            escKey = KbName('Esc');
end
        
% Display "READY"
% wait for the go signal (5's) from the MRI


%% during the experiment
% Be mindfull that only the "behavioral." data structure will be saved.

% Set all of the indexs equal to 1
i = 1;
oneItemIndex = 1;
scaledChoiceIndex = 1;
limitGARPIndex = 1;
twoItemGARPIndex =1;
while i < long;
    if trialOrder(i) == 1; %is for the one v. one choice
        if oneItemOrder(oneItemIndex) == 1;
           oneItemChoice(item1,item2);
        else
            oneItemChoice(item2,item1);
        end
    end
    
    if trialOrder(i) == 2; %is for the one item (same item both sides) choice
        scaledChoice(item1, ...
                     item1, ...
                     scaledChoiceTasks(scaledChoiceOrder(scaledChoiceIndex),1), ...
                     scaledChoiceTasks(scaledChoiceOrder(scaledChoiceIndex),2));
        scaledChoiceIndex = scaledChoiceIndex  + 1 ;
    end
    
    
    if trialOrder(i) == 3; %is for the one item (per side) (different items) GARP
        scaledChoice(item1, ...
                     item2, ...
                     limitGARPTasks(limitGARPOrder(limitGARPIndex),1), ...
                     limitGARPTasks(limitGARPOrder(limitGARPIndex),2));
        limitGARPIndex = limitGARPIndex  + 1 ;        
    end
    
    
    if trialOrder(i) == 4; %is for the two item (per side) GARP
        twoItemGARPChoice(item1, ...
                          item2, ...
                          item1, ...
                          item2, ...
                          twoItemGARPTasks(1,1,twoItemGARPOrder(twoItemGARPIndex)), ...
                          twoItemGARPTasks(1,2,twoItemGARPOrder(twoItemGARPIndex)), ...
                          twoItemGARPTasks(2,1,twoItemGARPOrder(twoItemGARPIndex)), ...
                          twoItemGARPTasks(2,2,twoItemGARPOrder(twoItemGARPIndex)));
        twoItemGARPIndex = twoItemGARPIndex  + 1;        
    end
    
    if trialOrder(i) == 5; %is for the three item (per side) GARP
        
    end
    % call the right function that Niree is writing
    % flip
    
    % Key response
[behavioural.secs(i,1), keyCode, behavioral.deltaSecs] = KbWait;
behavioural.key(i,1) = KbName(keyCode);
i = i + 1 ; 
end
%% at the end 
% up at the end of setings we created a file to hold all of our important data
% Now we will save all of the behavioural data in the same -.mat file

save (recordname, behavioural, -append)