example(wd)
## Put the numbers 1:64 into level 6
summary(newds <- putC(wds, level=6, v=1:64, boundary=FALSE))
#
# If you look at the C component of new, you will see that
# some numbers have changed at the appropriate position.
all.equal(wds,newds)
##>[1] "Component C: ... difference: 2.1912"
Run the code above in your browser using DataLab