mydata = read.table("energytemp.txt", header=T) head(mydata) plot(mydata$temp, mydata$energy, xlab = "TEMPERATURE", ylab = "ENERGY", main ="Scatterplot of Energy and Temperature") cor(mydata$temp, mydata$energy)