##RSS: MEARS 2007 #url="http://www.remss.com/pub/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TMT_Anomalies_Land_and_Ocean_v03_2.txt" url="http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TMT_Anomalies_Land_and_Ocean_v03_2.txt" tmt<-read.table(url, skip=3) dimnames(tmt)[[2]]<-c("year","month","70.80","20.20","20.80N","20.70S","60.80N","60.70S","US","NH","SH") tmt=ts(tmt,start=c(1979,1),freq=12) tmt.glb=ts(tmt[,3],start=c(1979,1),freq=12) # year month 70.80 20.20 20.80N 20.70S 60.80N 60.70S US NH SH #1979.000 1.000 -0.268 -0.249 -0.498 -0.045 -0.246 -0.392 -3.339 -0.376 -0.156