data1i=Import["/Users/troyday/Desktop/Untitled Set 1.txt","Table"]
data2i=Import["/Users/troyday/Desktop/Untitled Set 2.txt","Table"]

data1=Table[{i,data1i[[i,2]]},{i,1,Length[data1]}]
data2=Table[{i,data2i[[i,2]]},{i,1,Length[data2]}]

Export["Deprived",data1,"Table"]

ListPlot[{data1,data2},PlotStyle->{Red, Blue},Frame->True,FrameLabel->{"Time (weeks)","Mass (kg)"},LabelStyle->Directive[FontSize->14]]

Export["1.eps",%22,"EPS"]