discrete uniform distribution in r