Calculate mean of discrete random variable (#843)

Calculate mean of discrete random variable (#843)

Use E(X)=∑xP(X=x)E(X) = \sum x P(X=x).