##ESPER02 #831-1992 #this is a chronology and is not scaled to temperature #Northern Hemisphere Extratropical Regional Curve Standardization (RCS) Chronology url<-"ftp://ftp.ncdc.noaa.gov/pub/data/paleo/treering/reconstructions/n_hem_temp/esper2002_nhem_temp.txt" h<-read.table(url,skip=53,fill=TRUE) esper02<-ts(h[,2],start=h[1,1]) #831 1992 ## ESPER RECALIBRATION BY COOK ET AL 2004 target<-Briffa[,"CRU99"] z<-ts.union(target,esper02); z<-data.frame(z) # 831 1999 fm<-lm(target~esper02,data=z[(1881:1960)-830,]) predict0<-ts( predict(fm,newdata=z),start=831) #ts.plot(predict0) esper.fitted<-predict0 #I have not been able to locate an original archive of this