forbes <- read.table("/resources/statisticsData/forbes.txt",header=FALSE,col.names=c("temperature","pressure"))