Sheff_temp <- read.csv ("shef_max_temp_data.csv", sep = "")
colnames (Sheff_temp) <- c(c ("Year", "Month", "Max_temp"), colnames(Sheff_temp)[4:7])
Sheff_temp$Max_temp <- as.numeric(as.character(Sheff_temp$Max_temp))