% step 1, read in data:

[d]=read_Intan_RHD2000_datafile('intan_171213_040628.rhd',[],'din',1,0,Inf);

 % step 2, find the threshold crossing

thresh = threshold_crossings(-double(d),-0.5);

 % step 3, count the threshold crossings

numel(thresh)