% deltaV (in V)     deltaI (in A)

data = [4   0.4;

        8   1;

        4.9 0.55;

        2   0.14;

        2.8 0.23];

    

R = data(:,2)'*data(:,1)/(data(:,2)'*data(:,2));



% Also calculate Lm

tau = 1e-6*[640 740 780 820 660]; % in s

L = mean(tau)*R;