R.DHYPER(x,r,b,n,give_log)
x: observation
r: the number of red balls
b: the number of black balls
n: the number of balls drawn
give_log: if true, log of the result will be returned instead
This function returns the probability density function of the hypergeometric distribution.