[R] sliding window over a large vector

[c.oldmeadow at student.qut.edu.au]

the function works for me

s<-rbinom(1000,1,0.5)

t<-slide(s,50)

just too slow.

Thanks.