set.seed(6)
xx = rwiener(end = 1, frequency = 1000)
x = xx[ChangePointsId(xx)]
### finds the points that remains
id = which(DropMidAllB(x, p=4, dn=5))
### all p-variation partition points are form id
pvar(x, p=4)$Partition
### we can find the x points directly by DropMidAll
all(x[id] == DropMidAll(x, p=4, dn=5))
Run the code above in your browser using DataLab