'Time: Tuesday, September 20, 2010 'Eemagine User: Yang Zhang 'OS User: Yang Zhang 'Computer Name: SLHS-990000056 'Macro Name: C:\EEGanalysis\slhs8530\P300_analysis_script.vbs 'This VB script was written 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") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Below is the analysis script for one subject, A. ' You could write a loop structure using for each in Visual Basic to do the analysis for all subjects ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'load data, electrode positions, and head model CurrentItem.OpenEEGDataFile Array("C:\EEGanalysis\slhs8530\P300\A\A01.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.8, Array("freq|Event(0).Code = 1", "rare|Event(0).Code = 2"), 1 'reject blinks CurrentItem.RunArtefactDetection 1, 0, 75.0, -75.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\P300\P300_A01.asaanl" End Sub