powered by
binAverage(x, y, xmin, xmax, xinc)
x
xmax-xmin
y
library(oce) data(co2) plot(co2) avg <- binAverage(time(co2), co2, 1950, 2000, 2) lines(avg$x, avg$y, col='red')
Run the code above in your browser using DataLab