loess(y~x)
错误于simpleLoess(y, x, w, span, degree, parametric, drop.square, normalize,  :
  只允许有一到四个従属変数


par(mfrow=c(1,1))
x = t(s[1])
y = t(s[3])
plot(x,y,col = "green",type = "p", pch = 4)
loess(y~x)