data={8,15,9,22,18,18,16,21,20,18};

Export["/Users/troyday/Desktop/Transfer/BB Chapter11/data.txt",data,"TSV"]