R code for calculating the Science-wise False Discovery Rate - View it on GitHub