par(mfrow=c(2,1))
plot(sspot,ty="l")
sspot = ts(sspot,freq=12,start=c(1749,1))
plot(sspot)