rng_test.R use histogram instead of density plot