import_blink_from_eeg

 Import blink information from EEG data to MEG data

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function import_blink_from_eeg(p)
0002 % Import blink information from EEG data to MEG data
0003 %
0004 % Copyright (C) 2011, ATR All Rights Reserved.
0005 % License : New BSD License(see VBMEG_LICENSE.txt)
0006 
0007 for file=1:length(p.file_list)
0008     % Load blink information from EEG file
0009     eeg_file = fullfile(p.proj_root, p.eeg_dirname, p.trial_dirname, [p.file_list{file} '.eeg.mat']);
0010     load(eeg_file, 'EEGinfo')
0011     blink = EEGinfo.blink;
0012     
0013     % Display blink information
0014     disp(['Number of blink trials = ' num2str(length(find(blink==1))) '/' num2str(length(blink)) '.'])
0015     
0016     % Add blink information to MEG file
0017     meg_file=fullfile(p.proj_root, p.meg_dirname, p.trial_dirname, [p.file_list{file} '.meg.mat']);
0018     load(meg_file, 'MEGinfo')
0019     MEGinfo.blink = blink;
0020     vb_save(meg_file, 'MEGinfo');
0021 end
0022 
0023