Sample data for PHYS 310 "Data Analysis V" class, Tuesday March 7

Import["ErrorBarPlots`"]

data1={{1,4.67468,0.5},{2,2.82931,0.4},{3,-0.53042,0.6},{4,-2.37786,0.5},{5,-5.57461,0.4},{6,-7.29526,0.6},{7,-9.98074,0.5},{8,-11.9649,0.5},{9,-14.7745,0.6},{10,-16.711,0.5}};

data2={{1,4.67468,0.05},{2,2.82931,0.04},{3,-0.53042,0.06},{4,-2.37786,0.05},{5,-5.57461,0.04},{6,-7.29526,0.06},{7,-9.98074,0.05},{8,-11.9649,0.05},{9,-14.7745,0.06},{10,-16.711,0.05}};

data3={{1,4.67468,0.5},{2,2.82931,0.6},{3,-0.53042,1.2},{4,-2.37786,1.5},{5,-5.57461,2.4},{6,-7.29526,3.6},{7,-9.98074,3.5},{8,-11.9649,4.5},{9,-14.7745,4.6},{10,-16.711,5.5}};

data4={{1,3.17468,0.5},{2,1.52931,0.4},{3,-0.93042,0.6},{4,-2.37786,0.5},{5,-5.17461,0.4},{6,-6.29526,0.6},{7,-10.18074,0.5},{8,-12.4649,0.5},{9,-15.45,0.6},{10,-17.711,0.5}};

data5={{1.,0.710271,1.},{2.,4.78945,1.},{3.,6.95581,1.},{4.,11.017,1.},{5.,16.2491,1.},{6.,20.7123,1.},{7.,28.3532,1.},{8.,34.2654,1.},{9.,41.7877,1.},{10.,49.8513,1.}};

dataPlot=ErrorListPlot[data]

{xvals,yvals,yerr}=Transpose[data];
lm=LinearModelFit[Transpose[{xvals,yvals}],x,x]

Show[dataPlot,Plot[lm[x],{x,0,10}]]