Needs["ErrorBarPlots`"]
ErrorListPlot[Table[{i,RandomReal[0.5]}, {i, 10}]]

SetDirectory["/Users/magdapz/Documents/dydaktyka/pracownia_komp/pk20/cwiczenia_files/"]

FileNames["*","/Users/magdapz/Documents/dydaktyka/pracownia_komp/pk20/cwiczenia_files"]

"/Users/magdapz/Documents/dydaktyka/pracownia_komp/pk20/cwiczenia_files/line.txt"

Dane=Import["line.txt","Table"]

DATA=Dane[[All,{1,2}]]

WykresDane=ErrorListPlot[{  {  {-9,-6.84307},ErrorBar[1]},{{-7.5,-5.34808},ErrorBar[0.2]},{{-2.5,-0.811542},ErrorBar[0.7]},{{-0.5,-1.22456},ErrorBar[0.5]},{{1.5,1.24481},ErrorBar[1.8]},{{3,3.19375},ErrorBar[1.1]},{{5.5,4.8006},ErrorBar[0.3]},{{8.5,7.47098},ErrorBar[1.2]}}]

ERROR =Dane[[All,3]]

lm1=LinearModelFit[DATA,x,x]

lm1["ParameterTable"]

lm2=LinearModelFit[DATA,x,x, Weights->1/ERROR^2]

FittedModel[0.403793091088979` +0.7760127001115122` x]
lm2["ParameterTable"]

WykresFitu=Plot[lm2["BestFit"],{x,-10,10},PlotStyle->Red]

({{Show[WykresDane,WykresFitu,Frame->False]}, {\[Placeholder]}})