dataA={4.6,3.5,4.3,4.5,1.6,3.1,3.5,2.4,4.5,2.6,3.2,3.2,5.5,3.1,3.9};
dataB={3.5,4.2,2.2,3.5,3.0,3.7,3.3,1.9,0.4,3.6,1.8,2.6,1.6,2.2,2.1};

Export["/Users/troyday/Desktop/Transfer/BB Chapter11/data1.txt",dataA,"TSV"]
Export["/Users/troyday/Desktop/Transfer/BB Chapter11/data2.txt",dataB,"TSV"]