data={{681,15.1},{638,15.0},{408,13.9},{505,13.1},{785,15.2},{622,15.3},{726,16.0},{700,15.1},{713,16.1},{460,14.3},{573,14.6},{675,14.3},{622,14.1},{380,13.1},{449,13.5},{385,13.1},{458,13.8},{431,13.0},{420,14.1},{522,13.8}};

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