% Object FID
raw_dir = dir('C:\Users\Jon\Desktop\2010-12-21_Optimus-16259_21div_CNQX-and-Decodability\Stimulation-Data\2010-12-21_16259-Optimus*');

for i = 1:length(raw_dir)
    
    cd(['C:\Users\Jon\Desktop\2010-12-21_Optimus-16259_21div_CNQX-and-Decodability\Stimulation-Data\' raw_dir(i).name])
    
    exp_dir = {'pretrial-30min','trial1','trial2'};
    for j = 1:length(exp_dir)
        cd(exp_dir{j})
        
        fileinfo = dir([pwd '\*.spk']);    
        fid = fileinfo(1).name(1:end-4);
        
        % Load the SS object
        load([fid '.SS'],'-mat');
        
        % Weed the thing
        SS.ASDR;
       
        SS.PeriStimHistogram;
       
        SS.Save;
        
        cd ..
    end
   
    
end