added a correction for values of hp approximately zero

i used all.equal() to find all the values of hpx that are approximately zero to avoid numerical underflow issues. that chunk is then treated as a uniform. it is working with the test matrix you used, frank. i used a for loop since this vector is probably very short but i'll think about how to vectorize