my.datafile <- tempfile() cat(file=my.datafile, " Concentration Time 0.07 9.0 0.09 9.0 0.08 9.0 0.16 7.0 0.17 7.0 0.21 7.0 0.49 5.0 0.58 5.0 0.53 5.0 1.22 3.0 1.15 3.0 1.07 3.0 2.84 1.0 2.57 1.0 3.10 1.0 ", sep=" ") options(scipen=999) # suppressing scientific notation solution<-read.table(my.datafile,header=T) attach(solution) names(solution)