added examples, and
a fix in replacement function $<-.funsample