function Rin = Rin_analysis(data, bl_dur, freq, step_size, sweepnumbers)

Voltage = [];

for ii = 1:size(data,2)
    
baseline = mean(data(1:(bl_dur*freq),ii));
ss = mean(data((bl_dur+400)*freq:(bl_dur+500)*freq,ii));
Voltage(ii) = baseline - ss;

end

if numel(Voltage) ~= numel(sweepnumbers)
    deleted_sweeps = (setdiff(1:numel(Voltage),sweepnumbers)); 
   
   for ii = 1:numel(deleted_sweeps)
       Voltage(deleted_sweeps(ii)) = NaN;
   end
end

Voltage(isnan(Voltage)) = [];

Voltage = mean(Voltage);

Rin = (Voltage / step_size)*1000;