Dose,Water,Relief .1,10,7 .2,10,15 ...
read.table
> ex4 <- read.table("example4", header=T, sep=",")