function timings = link(data,range)
% 試行をリンクする関数
% 1本のスパイク時刻列 = link(スパイク時刻列, 試行 [開始 終了] 配列)


timings=[]; 	   %%% 全試行のスパイクタイミング列

trial=size(range,1);		%%% 試行数
len=range(1,2)-range(1,1);	%%% 切り出す長さ

last=0;

for i=1:trial
   train=data(range(i,1)<=data & data<range(i,2))-range(i,1)+last;
			%%% 試行ごとに切り出し、時刻を揃え、
			%%% 最終時刻に足す．

   timings=[timings;train];    		%%% スパイクタイミング列に追加

   last= last+range(i,2)-range(i,1);    	%%% 最終時刻更新
end

