co.intervals(x, number = 6, overlap = 0.5)
E.intervals <- co.intervals(ethanol$E, 9, 0.25) E.intervals# produces the following output: [,1] [,2] [1,] 0.535 0.686 [2,] 0.655 0.761 [3,] 0.733 0.811 [4,] 0.808 0.899 [5,] 0.892 1.002 [6,] 0.990 1.045 [7,] 1.042 1.125 [8,] 1.115 1.189 [9,] 1.175 1.232
# plot results coplot(NOx ~ C | E, given.values = E.intervals, data = ethanol, panel = function(x,y) panel.smooth(x, y, span = 1, degree = 1))