Edited read.table function