% Jon Newman
% 2013 12 21
% Reaction time of the on-off controller

fid = '2013_12_21_Smiley-24729_03';
bng = loadoc2([fid '.oc2']);
spk = loadspk([fid '.spk']);
ss = SqueakySpk([],25000,1,sp{3});


%%
figure
a = subplot(211)
ss.ASDR(0.004)
xlabel('Time (Sec, dt = 4 ms)')
ylabel('FR (Hz)')

b = subplot(212)
plot(bng.time,bng.out2)
xlabel('Time (Sec, dt = 4 ms)')
ylabel('Out 2')

linkaxes([a b],'x')