##RSS: MEARS 2007 url="http://www.remss.com/pub/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLT_Anomalies_Land_and_Ocean_v03_0.txt" tlt3<-read.table(url, skip=3) dimnames(tlt3)[[2]]<-c("year","month","70.80","20.20","20.80N","20.70S","60.80N","60.70S","US","NH","SH") tlt3=ts(tlt3,start=c(1979,1),freq=12) tlt3.glb=ts(tlt3[,3],start=c(1979,1),freq=12)