fix rbwheel(*, frac=0) case

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/robustbase@669 694ef91d-65df-0310-b7bb-92e67a308ead