#CRU url<-"ftp://ftp.cru.uea.ac.uk/data/tavenh2.dat" #this only goes to 2002 h<-scan(url) start0<-h[1] N<-length(h) h<-array(h,dim=c(27,N/27)) h<-t(h) CRU<-ts(h[,14],start=start0) #1851 - 2002 #delta<-mean(CRU[(1902:1980)-1850])-mean(CRU[(1960:1990)-1850]);delta # -0.1548959