#RSS #version 3 used by me first in 2011 #http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLS_Anomalies_Land_and_Ocean_v03_3.txt #http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLT_Anomalies_Ocean_v03_2.txt" ### ### tropo - TLT, TLS, TMT, TTS ## firma - Land, Ocean, Land_and_Ocean #Year mon -70.0/ -20.0/ 20.0/ -70.0/ 60.0/ -70.0/ Cont. 0.0/ -70.0/ # 82.5 20.0 82.5 -20.0 82.5 -60.0 USA 82.5 0.0 #year mon -82.5/ -20.0/ 20.0/ -82.5/ 60.0/ -82.5/ # 82.5 20.0 82.5 -20.0 82.5 -60.0 get_rss=function(tropo="TLT",firma="Land_and_Ocean",version=3) { ## tropo="TLT";firma="Land_and_Ocean"; version=3 loc=paste("http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_",tropo,"_Anomalies_",firma,"_v03_",version,".txt",sep="") rss=read.table(loc, skip=3) name0=c("year","month","82.82","20.20","20.82N","20.82S","60.80N","60.80S") if(firma=="Land_and_Ocean") dimnames(rss)[[2]]=c(name0,"US","NH","SH") else dimnames(rss)[[2]] =name0 rss=ts(rss,start=1979,freq=12) return(rss) }