powered by
geophones
plot(geophones) lines(lowess(geophones, f=.25))
Run the code above in your browser using DataLab