function [ dataSmooth ] = smoothData( data, R )
% function to make current profile data and make more smooth

dataSmooth = [interp(data(:,1),R), interp(data(:,2),R)];

end

