function [kinPerSec]=shiftingKin(kin, window, shift)
    kinPerSec=zeros(fix((max(kin(:,1))-window*1000)/(shift*1000)),4);
    for j=1:fix((max(kin(:,1))-window*1000)/(shift*1000))
        kinPerSec(j,:)=sum(diff(kin(kin(:,1)>(j-1)*shift*1000 & kin(:,1)<=(j-1)*shift*1000+window*1000,:)));
    end
end