'Start eemagine macro recording 'Time: Tuesday, September 07, 2010 15:37:17 'Eemagine User: Yang Zhang 'OS User: Yang Zhang 'Computer Name: SLHS-990000056 'Macro Name: C:\EEGanalysis\slhs8530\eegdata1_analysis_script.vbs 'This VB script was recorded using Macro and commented by Yang Zhang 'Setup program Dim CurrentItem Dim Application Dim Documents Set Application = CreateObject("asa.Application") Application.Activate Set Documents = Application.Documents Set CurrentItem = Application.ActiveDocument main() Sub main() Set CurrentItem = Documents.Add("Empty") 'load data, electrode positions, and head model CurrentItem.OpenEEGDataFile Array("C:\EEGanalysis\slhs8530\eegdata1\YZ1_tone1k_IGN1.cnt"), "EEProbe", 0, 0.0 CurrentItem.OpenElectrodeFile 0, Array("C:\Program Files\ASA4\Data\electrodes\standard.elc"), "ASA" CurrentItem.OpenHeadModelFile 0, Array("C:\Program Files\ASA4\Data\headmodels\standard.eeg.vol"), "ASA" 'define stimulus condition and ERP epoch CurrentItem.RunConditioning 4, 1, -0.1, 0.6, Array("tone1khz|Event(0).Code = 1"), 1 'reject blinks CurrentItem.RunArtefactDetection 1, 0, 50.0, -50.0, 0.0, 0.0 'lowpass filter CurrentItem.FFTFilterData Array(".\Output"), "EEProbe", 0.216, 40.0, 24 'baseline correction CurrentItem.RunBaselineCorrection 0.1, 0.0, 1, 1.0, 0.0, 4, 1, Array(".\Output"), "EEProbe" 'averaging CurrentItem.RunAveraging 4, 0, -0.1, 0.8, 1, Array(".\Output"), "EEProbe", 0 'save ERP CurrentItem.SaveAs "C:\EEGanalysis\slhs8530\eegdata1.asaanl" End Sub