vb_load_megeeg_data

 returns extra data in MEG
 [usage]
   megeeg = vb_load_megeeg_data(megfile, newfile)
 [input]
   megfile : <required> <<file>> MEG-MAT file
 [output]
    megeeg : EEG data in MEG
 [note]
   The old name is 'load_eog_data'.
   @see vb_load_meg_data.m
 [history]
   2007-07-23 (Sako) initial version
   2008-04-30 (Sako) replaced load_yokogawa_eeg_data with megfile_load_data_*
   2008-06-06 (Sako) modified using new vb_load_meg_data
   2011-06-01 (Sako) converted return values of vb_load_device to upper case

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

0001 function megeeg = vb_load_megeeg_data(megfile)
0002 % returns extra data in MEG
0003 % [usage]
0004 %   megeeg = vb_load_megeeg_data(megfile, newfile)
0005 % [input]
0006 %   megfile : <required> <<file>> MEG-MAT file
0007 % [output]
0008 %    megeeg : EEG data in MEG
0009 % [note]
0010 %   The old name is 'load_eog_data'.
0011 %   @see vb_load_meg_data.m
0012 % [history]
0013 %   2007-07-23 (Sako) initial version
0014 %   2008-04-30 (Sako) replaced load_yokogawa_eeg_data with megfile_load_data_*
0015 %   2008-06-06 (Sako) modified using new vb_load_meg_data
0016 %   2011-06-01 (Sako) converted return values of vb_load_device to upper case
0017 %
0018 % Copyright (C) 2011, ATR All Rights Reserved.
0019 % License : New BSD License(see VBMEG_LICENSE.txt)
0020 
0021 % --- CHECK ARGUMENTS --- %
0022 if ~exist('megfile', 'var'), megfile = []; end
0023 [megfile] = inner_check_arguments(megfile);
0024 
0025 % --- MAIN PROCEDURE --------------------------------------------------------- %
0026 %
0027 func_ = mfilename;
0028 
0029 [measurement, device] = vb_load_device(megfile);
0030 Measurement = upper(measurement);
0031 Device = upper(device);
0032 
0033 megeeg = [];
0034 
0035 switch Measurement
0036   case  'MEG'
0037     switch  Device
0038       case  'SBI'
0039         megeeg = load_sbi_eog_data(megfile);
0040       case 'YOKOGAWA'
0041 
0042         const = vb_define_const;
0043         loadspec.ChannelType = const.DATA_TYPE_EXTRA;
0044         data_ext = vb_load_meg_data(megfile, loadspec);
0045         
0046         loadspec.ChannelType = const.DATA_TYPE_REFERENCE;
0047         data_ref = vb_load_meg_data(megfile, loadspec);
0048 
0049         megeeg = [data_ext;data_ref];
0050       otherwise
0051         error('(%s)unknown Device : %s(%s)', func_, Device, Measurement);
0052     end
0053 
0054   case  'EEG'
0055     error('(%s)unsuitable Measurement: %s', func_, Measurement);
0056     
0057   otherwise
0058     error('(%s)unknown Measurement : %s', Measurement);
0059 end
0060 
0061 return
0062 %
0063 % --- END OF MAIN PROCEDURE -------------------------------------------------- %
0064 
0065 % --- INNER FUNCTIONS -------------------------------------------------------- %
0066 %
0067 function [megfile] = inner_check_arguments(megfile)
0068 func_ = mfilename;
0069 if isempty(megfile)
0070   error('(%s)megfile is a required parameter', func_);
0071 end
0072 
0073 if exist(megfile, 'file') ~= 2
0074   error('(%s)cannot find megfile : %s', func_, megfile);
0075 end
0076 return;
0077 %
0078 % --- END OF INNER FUNCTIONS ------------------------------------------------- %
0079 
0080 % --- END OF FILE --- %