year<-75:94
y<-c(3,5,7,9,1O, 18,6,14,11,9,5,11,15,6,11,17, 12,15,8,4)
plot(year,log(y))
plot(loess(log(y) - year), ylim=range(log(y)))
points(year,log(y))