%This function creates a Butterworth filter and returns the filtered signal
%
%
% Written by: Knut Åge Meland
% email: knutagemeland@gmail.com
%%
function [filter_signal] = Butterfilter_4(signal)

[B,A] = butter(4,1/(7*4)); % 4th order filter, 4 because of four samples pr sec, cutoff freq at 7 herz.

filter_signal=filter(B,A,signal);
end
