#GISS US
	url="http://data.giss.nasa.gov/gistemp/graphs/Fig.D.txt"
	fred=readLines(url)
	fred=fred[5:(length(fred)-1)]
	giss.us=ts(as.numeric(substr(fred,10,16)),start=1880)