SetDirectory["~/courses/cp09/week11/fit"];
Print[FileNames[]];

?Import

data=Import["suscept08.d","Table"]

tab=Table[{data[[ll,1]],data[[ll,4]]},{ll,1,7}]

zal=Fit[tab,{1,x},x]

?Fit

Show[ListPlot[tab,PlotStyle->PointSize[0.02]],Plot[zal,{x,2.27,2.35}]]

tab=Table[{data[[ll,1]],data[[ll,4]]},{ll,3,6}]

zal=Fit[tab,{1,x},x]