#GLOBAL Land-Ocean Temperature Index in 0.01 degrees Celsius   base period: 1951-1980
#sources:  GHCN-v3 1880-12/2016 + SST: ERSST v4 1880-12/2016

get_giss=function(period="monthly") {
loc="https://data.giss.nasa.gov/gistemp/tabledata_v3/GLB.Ts+dSST.txt"
dest="d:/temp/temp.dat"
download.file(loc,dest)
fred=readLines(dest)
ind=grep("Year",fred)
indx=ind[1]:ind[length(ind)]
K=length(indx)
n=nchar(fred[indx])
indr= indx[is.na(match(indx,ind))&n>0]
writeLines(fred[indr],dest)
work=read.table(dest,fill=T)
if(period=="monthly") x= ts( c(t(work[,2:13])),start=work[1,1],freq=12)/100
if(period=="annual") x= ts( work[,14]/100,start=work[1,1])
return(x)
}