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