# generate some noise
ex1 <- ar1(npts=50,dt=1)
# jitter sampling times
ex1[1]=ex1[1]+rnorm(50,sd=0.25)
# sort
ex1 = ex1[order(ex1[,1],na.last=NA,decreasing=FALSE),]
# run mwin
mwinGrid(ex1,win=10,step=2)
Run the code above in your browser using DataLab