R fxns for degrading trees with fossil sampling