```r
system(" wget http://vortex.nsstc.uah.edu/data/msu/v6.0/tlt/uahncdc_lt_6.0.txt")
lt<-read.table("http://vortex.nsstc.uah.edu/data/msu/v6.0/tlt/uahncdc_lt_6.0.txt", fill=TRUE, head=TRUE, nrows=527)
mt<-read.table("http://vortex.nsstc.uah.edu/data/msu/v6.0/tmt/uahncdc_mt_6.0.txt", fill=TRUE, head=TRUE, nrows=527)
tp<-read.table("http://vortex.nsstc.uah.edu/data/msu/v6.0/ttp/uahncdc_tp_6.0.txt", fill=TRUE, head=TRUE, nrows=527)
ls<-read.table("http://vortex.nsstc.uah.edu/data/msu/v6.0/tls/uahncdc_ls_6.0.txt", fill=TRUE, head=TRUE, nrows=527)
nino<-read.table("https://www.cpc.ncep.noaa.gov/data/indices/sstoi.indices", fill=TRUE, head=TRUE)

f<-function(nm,skip=7)
{
URL<-"https://www.metoffice.gov.uk/pub/data/weather/uk/climate/stationdata/oxforddata.txt"
d<-read.table(URL,skip=7, skipNul = TRUE, fill=TRUE,flush=TRUE)
names(d)<- c("Year", "Month", "tmax", "tmin",  "af","rain", "sun") 
d$Year<-clean(d$Year)
d$tmin<-clean(d$tmin)
d$tmax<-clean(d$tmax)
d$af<-clean(d$af)
d$rain<-clean(d$rain)
d$sun<-clean(d$sun)
d$date<-as.Date( paste(d$Year,d$Month , 15 , sep = "/" )  , format = "%Y/%m/%d" )
d$month<-lubridate:::month(d$date,label=TRUE)
d$station<-"oxford"
d
}
library(aqm)
d<-lt
d$date<-dmy(paste(1,d$Mo,d$Year))

ox<-f()

ox$date<-dmy(paste(1,ox$Month, ox$Year))
ox %>% filter(date %in% unique(d$date)) ->ox
ox %>% group_by(Month) %>% mutate(oxford=tmax-mean(tmax)) %>% ungroup() %>% dplyr::select(date,oxford) ->ox
```