my personal r package with random functions