GSP_Paradigm.m
b8089f5f662emaster

GSP_Paradigm.m
View Options

			%% This function constructs the 'paradigm' of interest
			function [time,Regressor] = GSP_Paradigm(PathToPar,n_rem)

			Now = pwd;
			cd(PathToPar);

			% Creates the regressor that will highlight the presentation of the
			% stimulus
			Regressor = zeros(1,405);
			time = 0:0.72:(405*0.72);
			time = time(1:end-1);

			% 0-back body
			tmp = textread('0bk_body.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 1;

			% 0-back faces
			tmp = textread('0bk_faces.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 2;

			% 0-back places
			tmp = textread('0bk_places.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 3;

			% 0-back tools
			tmp = textread('0bk_tools.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 4;

			% 2-back body
			tmp = textread('2bk_body.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 5;

			% 2-back faces
			tmp = textread('2bk_faces.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 6;

			% 2-back tools
			tmp = textread('2bk_places.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 7;

			% 2-back places
			tmp = textread('2bk_tools.txt');
			Regressor(ceil(tmp(1)/0.72):floor((tmp(1)/0.72)+35)) = 8;

			Regressor(1:n_rem) = [];
			time(1:n_rem) = [];

			cd(Now);
			end