#!/usr/bin/perl -w
use strict;
use Statistics::LineFit;

my ($kv,$ma,$r);
my (@x,@y,$s,$i);

while (<>)
{
 ($kv,$ma) = split;
 $kv -= $ma/20.0;
 $r = $kv/$ma;
  push @x, $kv;
  push @y, $ma;
 
 print "new kv:$kv, ma:$ma, R, Mohm $r\n";
}
my $lineFit = Statistics::LineFit->new();
$lineFit->setData (\@x, \@y) or die "Invalid data";
($i, $s) = $lineFit->coefficients();
print "Slope:$s, intercept:$i\n";
$r = 1/$s;
print "Fitted R = $r Megohm\n";

