0001
0002
0003
0004
0005
0006 marsbar('on')
0007
0008
0009
0010 subjroot = get_subjroot();
0011
0012 sesses = {'sess1','sess2','sess3'};
0013
0014 spm_v = spm('ver');
0015 sdirname = [spm_v '_ana'];
0016 if ~strcmp(spm_v, 'SPM99'), spm_defaults; end
0017
0018
0019 spm('defaults', 'fmri');
0020
0021
0022 er_smooth(subjroot, sesses, 'nu*.img', 8);
0023
0024
0025 for ss = 1:length(sesses)
0026 model_file = configure_er_model(subjroot, sesses{ss}, sdirname);
0027 estimate_er_model(model_file, [1 0]);
0028 end