speedoflight1 <- read.table("/resources/statisticsData/speedOfLight1.txt",header=FALSE,col.names=c("velocity","temperature","day","ampm","set"))