A pdf of equation for various measures of genetic distance can be download from here

Reynolds distance: $$\theta_w = \sqrt{\frac{\sum_l\sum_u (X_u -Y_u)^2}{2\sum_l(1-\sum_u X_u Y_u)}}$$

R codes as below: