Skip to content
Prev 68198 / 398506 Next

local average

a<-sapply(1:100,function(x)mean(Y[X<x & X>x-1]))
b<-sapply(1:100,function(x)median(Y[X<x & X>x-1]))