I created a function in R. it will do read in a text file, extract part of data, transpose the data and then add the file name for each row. the code is below. the goal of the f