dat = read.table("sspot.dat",head=T)
names(dat)
attach(dat)


plot(sspot,ty="l")