sspot = dat[,1]
par(mfrow=c(2,1))
acf(sspot)

pacf(sspot)