function [ output ] = shiftingMean( data,factor )
%shiftingMean downsampling by taking the mean
%   taking the mean of $factor data as new datum
    dataSize=size(data);
    output=zeros([fix(ceil(dataSize(1)/factor)),dataSize(2:end)]);
    for i=1:size(output,1)
        output(i,:)=mean(data((i-1)*factor+1:min(i*factor,dataSize(1)),:),1);
    end
end